& 



* 

, + 1 



*3 






V P * 

-t ■.•-“* 



Si 



AC*' 






V 



NAVAL POSTGRADUATE SCHOOL 

Monterey, California 




THESIS 

PARAMETRIC SIMULATION OF THE DIRECT SUPPORT 
MAINTENANCE SYSTEM IN THE BRIGADE AREA 

by 

Andrew George Loerch 
September 1980 

Thesis Advisor: J. K. Hartman 

Approved for public release; distribution unlimited 



T 195907 



>/U • ’># S > ? fKl «. 



SECURITY CL ASSl FlCATlON O F THIS P*f,l (W*mn Doto EntnwnO) 



REPORT DOCUMENTATION PACE 


READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


. report NUMlCR 


2. OOVT ACCESSION NO. 


1. RECIPIENT'S CATALOG NUMSCR 


«. TITLE (ana Suhtnta) 

PARAMETRIC SIMULATION OF THE DIRECT 
SUPPORT MAINTENANCE SYSTEM IN THE BRIGADE 
AREA 


S. TYPE OF PEPOP.T A PEPtOO COVCPCO 

Master's Thesis; 
September 1980 


§. performing oro. report numger 


7. AO T HORf a) 

Andrew George Loerch 


S. CONTRACT or Grant NUMGERf *) 


r performing organization name ano aodheii 

Naval Postgraduate School 
Monterey, California 93940 


to. PROGRAM ELEMENT. PROJECT. TASK 

AREA A WORK UNIT NUMRERS 


11 CONTROLUNO OFFICE NAME ANO AOORCIS 

Naval Postgraduate School 
Monterey, California 93940 


12. REPORT DATE 

September 1980 


11. NUMBER OF PAGES 

181 


14. MONITORING AGENCY NAME « AOORESSfl# rtltfmmnt from Controlling Ottlcn) 

Naval Postgraduate School 
Monterey, California 93940 


IS. SECURITY CLASS, (at thta ' apart) 

Unclassified 


T%o. OECL ASSl PIC ATION/OOWNGPAOING 

schedule 


IS, DISTRIBUTION STATEMENT (at thta Kapartt 

Approved for public release; distribution unlimited 


17. OIST RlRUTlON STATEMENT (ol thm «n«(p»el in Block 20, II OUtoront frmm Moycri) 


is. supplenintary notes 


19. KEY WOROI (Conti nun on roworno mt dm ft nocnnonry lOnntify by block number) 

maintenance, simulation, logistics models, combat models 


20. ABSTRACT (Continue on ronormo ml On ft nnenmnory mn4 lOnntlty by block number) 

This thesis presents a computer simulation model of the direct 
support maintenance system in the brigade area. Current and 
future maintenance doctrine is addressed as background, and is 
used as a basis for the model. Submodels to generate maintenance 
workload, perform the maintenance functions, and evaluate attrition 
of the maintenance units are discussed in detail. A program 
listing is provided and complete documentation is given. Data 



DO | 1473 EDITION or 1 MOV •• It OBSOLETE 

(Page 1) S/N OIOI'OM* A«OI • 



1 



IICURITY CLASSIFICATION OF THIS PaOE (Wham Data Kntarad) 



<»cuw?v Cl Att»ytC*T*ON fW«« «»«#*•* 



generated by the model is used as an example of a potential 
application. 



DD Forqj 1473 
S/fl 0 a il2-014-6601 



2 



S(Cu«itv cwAMiritATiON o * thi« »*oerwt»*« o*u *««•»•*» 



Approved for Public Release: Distribution Unlimited 



Parametric Simulation of the Direct Support Maintenance 

System in the Brigade Area 



by 



Andrew George Loerch 
Captain, United States Army 
BS, Polytechnic Institute of Brooklyn, 1974 



Submitted in partial fulfillment of the 
requi rements for the degree of 

MASTER OF SCIENCE IN OPERATIONS RESEARCH 

from the 

NAVAL POSTGRADUATE SCHOOL 



September 1980 



1' V 

L ?=; i ; ; 




ABSTRACT 



This thesis presents a computer simulation model of the 
direct support maintenance system in the brigade area. 
Current and future maintenance doctrine is addressed as 
background / and is used as a basis for the model. Submodels 
to generate maintenance workload, perform the maintenance 
functions, and evaluate attrition of the maintenance units 
are discussed in detail. A program listing is provided and 
complete documentation is given. Data generated by the 
model is used as an example of a potential application. 
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I . I INTRODUCTION 



Future combat on the modern battlefield will be intense 
and will involve great expenditures of resources. The United 
States Army may be forced to fight outnumbered and 
outgunned, and will therefore have to depend on superior 
training, technology, tactics, and logistics to improve its 
chance of victory against its enemies. 

A major necessity, especially early in the conflict, 
will be to maintain a high percentage of its combat power in 
operation against the enemy. As such, inoperable equipment 
must be returned to battle as quickly as possible. The 
maintenance units, then, will be a key factor in the outcome 
of battle. 

The purpose of this thesis is to develop a model of the 
Army maintenance system so that meaningful analysis can be 
performed concerning its use in combat. 

In chapter 2, the maintenance system is defined, both as 
it operates today and as it will operate in the near future. 
Two examples of previous modelling efforts are also 
discussed. In chapter 3, a brief explanation of the 
maintenance model is given. A detailed explanation of the 
methodology of the model is given in appendix B. The 
computer program listing Is given in appendix E, and the 
program is completely documented in appendix C. A sample of 
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the output of the model is shown in appendix D, and appendix 
A gives an example of the type of problem the model can help 



to solve, as well as a set of data generated in 
exercise. 



a model 
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PROBLEM DEFINITION 



I I . 



A. INTRODUCTION 

The purpose of this chapter is to explain the operation 
of the United States Army's maintenance system, both how it 
works now, and how it will work in the future. A clear 
understanding of this system and the various factors that 
impact on the system is essential if one is to build a model 
that will accurately represent the maintenance process. 

The maintenance system has been modelled in the past and 
two examples of these modelling attempts are discussed. 

Finally, the requirements for a model that could be used 
to analyze the operations of maintenance units in combat are 
presented . 

B. THE MAINTENANCE SYSTEM IN THE ARMY TODAY 

When the operator of a vehicle observes a malfunction, 
he reports the problem to the organizational maintenance 
section In his company. Virtually all company sized units 
in the Army have organic maintenance capability tailored to 
the type of equipment the unit has. [l] The mission of 
these "organizational" or second echelon maintenance 
sections is to perform scheduled prevent! tive maintenance 
and to make minor repairs on the unit's organic equipment 
when needed. The vehicle would be inspected by these 
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personnel to locate the source of the problem. 

Each component of every piece of equipment in the Army 
inventory is listed in the technical manual for that piece 
of equipment. Along with the components list is a 
Maintenance Allocation Chart/ MAC/ that specifies the level 
of maintenance that must be performed on the component. [ 2 \ 
After locating the malfunctioning part, the MAC is checked 
to see whose job it is to repair the vehicle. 

If authorization exists for the job to be done at 
organizational level, the necessary parts are taken from the 



rel at i vel y 


small supply 


of 


parts 


the 


uni t 


has 


on hand. 


called its 


prescr i bed 


load 


list 


or 


PLL, 


or 


they are 


requisitioned. The repair 


would 


then 


be 


made 


and the 



vehicle would be returned to service. 

If the repair is not authorized to be performed at 
organizational level, the vehicle would be assigned a 
priority commensurate with its importance to the 
accomplishment of the mission of the unit, and would be 
taken to the next level of maintenance for repair. 

In the case of a divisional unit, "direct support" or 
third echelon maintenance support is provided by the 
companies of the divisional maintenance battalion. Each 
brigade of the division is supported by one forward support 
maintenance company. This company would be located in the 
brigade support area, known as the brigade trains area, 
which is doctrinal ly placed about 25 kilometers to the rear 
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of the forward edge of the battle area. [3] 

The rest of the maintenance battalion including the 
heavy and light maintenance companies and the missile 
support company would be located in the Division Support 
Area, the DSA, in the division rear. With their greater 
capabilities and their more static situation, they provide 
backup support for the forward support companies. 

The maintenance battalion also provides repair parts 



(Class 


IX) support 


both 


for 


i ts own shops 


perform! ng 


repai rs. 


and for 


those 


of 


organ! zational 


mai ntenance 



activities In supported units of the division, each forward 
support company has a satellite repair parts supply 
operation that draws on the main repair parts warehouse in 
the DSA, and supplies parts to all of its supported units. 

When the vehicle arrives at the forward support company, 
an experienced inspector, usually a staff sergeant performs 
a complete technical inspection of the vehicle. He then 
orders the parts necessary for the repair and sends i t to a 
crew of mechanics who will actually do the work. Often 
repair parts will not be immediately available, or all the 
crews will be busy. The job would then have to wait. 

Waiting jobs are performed in order of priority, both on 
the basis of prioity that the unit has assigned to the 
equipment, and on the priority the brigade commander has 
assigned the units of the brigade. 

Once again, as in the case of the organizational units. 
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the possibility exists that the type of repair needed will 
not be authorized at the direct support level according to 
the maintenance allocation chart. In that event, the 
equipment would be further evacuated to the "general 
support" maintenance units at corps level by the direct 
support personnel . 

When the item is finally repaired, it must repeat the 
steps in reverse before it is returned to the user so that 
all intermediate maintenance levels can complete the work 
orders that were opened when the job was received. 

There is another possible fate that could befall the 
vehicle as it proceeds through the echelons of the 
maintenance system. At any level, direct support or higher, 
an inspector can determine that the piece of equipment is so 
badly damaged that it would cost more to repair it than it 
is worth. At this point, he will declare the equipment 
uneconomi cal 1 y repairable and the owner unit of the 
equipment would have to requisition a new piece of equipment 
through the supply system. [4] The item would then become 
a source of supply parts itself and any serviceable 
components could then be used to repair other items. This 
process is called cannibalization or substitution and it is 
especially useful for repair of items that require 
infrequently ordered parts that would not normally be 
stocked In the unit PLL or in the direct support repair 
parts f aci 1 i ti es . 
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An additional element that must be considered when one 
discusses maintenance is the Operational Readiness Float 
program of the division. An Operational Readiness Float, 
ORF, is an item of equipment that is maintained by the 
divisional maintenance battalion and is issued to a unit to 
temporarily replace a like item that needs repair. [4] The 
Army Regulation governing ORF's specifies a complicated 
formula for computing the number of float items of each type 
that the division is authorized to have on hand. The 
regulation is also quite emphatic about the rules for 
issuing ORF's in regard to the length of time the needed 
repair is anticipated to take. Usually, the float items are 
maintained in the DSA by the heavy and light maintenance 
compani es . 

C. PROBLEMS AND PROPOSED CHANGES 

Several problems exist in the system today that have 
arisen during the last two decades as it became more and 
more evident that U.S. forces would fight outnumbered in the 
next conflict in Europe. 

First, the repair parts supply of the division is not 
100 percent mobile. Since it is anticipated that a very 
short preparation time will be available before the next 
conflict, the inability of the maintenance battalions to 
move their warehouse operations will impact heavily on the 
availability of repair parts. 
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Second, the fact that our fighting resources are very 
limited compared to potential adversaries makes the rapid 
return to battle of repaired equipment an absolute 
necessity. The delays that are inherent to the present 
system, especially in the area of transport of unserviceable 
equipment to maintenance facilities, totally preclude 
meeting this requirement. 

The late classification of uneconomi cal 1 y repairable 
items is a third problem. Time is wasted on equipment that 
will not be returned to combat and a source of repair parts 
that would otherwise be immediately available, is removed. 

During the 1973 Mid East War, Israeli maintenance units 
faced these and other problems and were very successful in 
dealing with them. In particular they were very adept at 
making repairs and performing classifications much closer to 
the forward edge of the battle area than had been thought 
possible. Direct support maintenance teams and inspectors 
went to the unserviceable equipment rather than forcing the 
supported units to bring the items to them. This method of 
employment greatly improved the performance of routine 
direct support repairs and canni bal i zat ions could be made 
quickly to maximize the number of systems available for 
combat . 

As a consequence of Israeli success in this area, many 
of their techniques have been or will be adopted for use by 
the U.S. Army, and the organizational changes proposed in 
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the Division 86 study are reflective of this change of 
philosophy. 

To implement this "fix forward" concept in the U.S. 
Army, major changes were made to the force structure at the 
direct support level. The forward support company that was 
previously only under the operational control of the brigade 
commander will become organic to the brigade as part of a 
new Brigade Support Battalion. Included in this battalion as 
augmentation to the forward support company, will be several 
new teams called Tank Systems Support Teams and Infantry 
Systems Support Teams. Each team will provide direct 
support maintenance as far forward as possible with the 
former supporting the armor battalions and the latter 
supporting the mechanized infantry battalions of the brigade 
task force. Each team will be co- located with the 
organizational maintenance elements of the battalion to do 
as much direct support work as possible as close to the 
battle as possible. Since these teams have very limited 
repair parts storage capabilities, cannibalization will be a 
major source of supply of repair parts for the operation of 
these teams. 

D. THE NEED FOR FURTHER ANALYSIS 

A major tradeoff has been made by moving maintenance 
elements forward, that is trading surivability for 
responsiveness. For a conflict of short duration, fixing 
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forward might be a better way to proceed. If the conflict 
continues over a longer period / the increased vulnerability 
of these forward maintenance elements could result In higher 
casualties among maintenance personnel and, consequently, a 
degradation of the maintenance capabilities in the brigade 
and the division. A need therefore exists for analysis to 
gain Insight into the ramifications of this tradeoff. 

While the organizational structure of the direct 
support maintenance units of the future has been specified 
completely in the Div 86 report, the tactics that they will 
use, and the location of these elements on the battle field 
have not been specifically defined. In fact, the guidance 
that has been given on this subject is quite nebulous. For 
example, the Operations field manual, FM 100-5, says the 
following: 



"...Forward support maintenance companies extend 
their support to combat units by sending contact 
teams to work with them. Normally more than half 
of the repairmen of the company will be out 
working in the combat area. People, parts, and 
tools are pushed forward into that forward support 
area when needed; when no longer needed they are 
pulled back. Supervised battlefield 
cannibalization may be used when the parts are not 
available from the supply system, and an item of 
equipment can be repaired using parts from other 
unserviceable equipment..." [oj 



Another example of the guidance that 
concerning the implementation of the fix 



has been given 
forward concept 
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comes from the Operational Concept document for the Division 
Support Command organization specified in the Div 86 study, 
prepared by the tl.S. Army Logistics Center: 

"...The Forward Maintenance Company establishes a 
base operation in the brigade trains and sends 
teams forward to provide close-in support 
consistent with tactical limitations..." [ 7 ] 

Perhaps the guidance was made very general so that the 
flexibility of the brigade commander would not be impaired, 
insight Into the system, however, would be extremely 
valuable in assisting commanders in using their maintenance 
assets in the most efficient and effective manner possible. 

E. EXAMPLES OF PREVIOUS MODELLING EFFORTS 

The modelling of the combat maintenance process has been 
very limited In the defense modelling community. Usually 
the models were used to do one specific study and there is 
not the prol i f erat Ion of models at different levels that one 
finds in the modelling of the combat functions. 

An example of such a model is the Balanced Forces or 
BALFOR model developed by the U.S. Army Concepts Analysis 
Agency, CAA. [8l This model was developed to examine the 
impact on the combat service support system of increasing 
and decreasing the levels of prepositioned war reserves in 
the European Theatre. BALFOR considers all combat service 
support functions and does not limit itself to maintenance. 
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Personnel replacement/ medical evacuation/ and supply of 
ammunition and fuel were also considered in the model. 
BALFOR was made to be compatible with several other CAA 
models/ such as the CEM model/ so that outputs from these 
models could be used as sources of input data to BALFOR. 
This model is deterministic and extremely fast running/ and 
plays the entire theatre combat service support system. 

As a tool for analyzing the new maintenance structure 
however/ BALFOR has some serious shortcomings. It does not 
play nonavailability of parts/ which is a significant factor 
in determining the time that an item will be inoperable. 
BALFOR also has the underlying assumption that there will be 
no attrition or interdiction of the maintenance elements. 
AS such/ it is useless as an analysis tool for examining the 
new force structure. 

A more general model of combat maintenance is the 
Maintenance Support Concepts/ MASC/ model developed for the 
U.S. Army Logistics Center by Braddock/ Dunn/ and McDonald. 
[9] This model is the most well known today for analyzing 
maintenance operations. Originally/ it was used to evaluate 
Operational Readiness Float policies. 

MASC is a theatre level model which explicitly plays 
all theatre maintenance units in detail. It is a stochastic 
simulation. Input parameters were supplied to the designers 
by the U.S. Army Ordnance Center and School. These inputs 
included probability of correct diagnosis and repair/ out of 
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stock probabilities, repair time distributions, waiting 
parts times distributions, float size and distributions, and 
rates at which vehicles are rendered uneconomi cal 1 y 
repa i rabl e. 

A sensitivity analysis of factors in the simulation 
showed that the factor that most significantly affected the 
outcome was the failure rate of the items, followed by out 
of stock probabilities, washout rate, waiting parts time, 
and the maintenance float policy. This result is intuitively 
appeal i ng. 

The MASC model seems to represent the maintenance 
functions very well, but, like the BALFOR model, it fails to 
portray attrition and interdiction of the maintenance units 
at all. Also, the proponents of the model admit that the 
model is very scenario dependent and that only one scenario 
was played. 

In order to evaluate the new force structure and 
tactics proposed for maintenance elements on the modern 
battlefield, MASC would have to be extended considerably. 

F. REQUIREMENTS FOR MODELLING THE MAINTENANCE SYSTEM IN 
COMBAT 

It is evident that past efforts in modelling 
maintenance in combat have done a credible job in 
representing the maintenance functions, but they have been 
woefully inadequate in portraying the various combat 
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functions that impact on the performance of the maintenance 
mission. In the past/ this approach might have been 
satisfactory in that combat service support units were 
doctrinally located a substantial distance from the 
fighting. Now, however/ with the maintenance units closer 
to the combat/ their mission performance will be 
significantly affected by combat activities. Consequently/ 
for any model to be a useful tool for performing analyses 
regarding the maintenance system, it must take into 
consideration these previously unconsidered factors. 

There are three major areas of concern that must be 
included in modelling maintenance in combat. The first is 
the input to the system. Both the number of jobs to be 
performed and the rate they enter the system must be 
represented as accurately as possible. 

Next, the actual maintenance functions must be 
portrayed. All the inspections, repairs, evacuations, and 
canni bal i zat ions take time and use up resources. in order 
to evaluate how the performance of the actual maintenance 
tasks is affected by other factors, they must be represented 
in considerable detail. 

Finally, the effect of the combat situation on the 
maintenance units must be considered. When a maintenance 
unit is attacked, its capability to perform its mission is 
at least disrupted temporarily and may be degraded 
permanently. Frequently, moves to alternate positions must 
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or to reduce 



be made to Improve responsiveness 
vulnerability. These moves also use time 
spent repairing equipment. 

A model that could consider these 
unquestionably be an asset in doing analyses 
maintenance system in the brigade. 



that cannot be 

factors would 
concerning the 
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III. MODEL DESCRIPTION 



A. INTRODUCTION 

In this chapter/ a model that has been designed as an 
attempt to meet the requirements of modelling the direct 
support maintenance system in a combat environment is 
presented and discussed in general terms. A more detailed 
model description including a brief explanation of the 
SIMSCRIPT 11.5 programming language is presented in appendix 

B. 

The maintenance model presented here is a stochastic/ 
discrete event simulation implemented in the SIMSCRIPT 11.5 
programming language. [id] The system modelled is the 
direct support maintenance system in the brigade area. The 
structure of the maintenance units was taken from the DIV 86 
study Table of Organization and Equipment for the Brigade 
Support Battalion. The actual distribution of personnel/ 
however/ is quite flexible in that the user specifies the 
types and numbers of repairmen in each maintenance unit. 

The model only considers repair of damaged tanks and 
armored personnel carriers because they have the greatest 
effect on the outcome of the battle. The damage sustained 
by these vehicles can be categorized as either firepower 
damage or mobility damage. The amount of damage in each 
category is expressed in terms of a proportion. This scheme 
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for quantifying firepower and mobility damage was chosen in 
an attempt to be conslstant with the damage determination in 
high resolution combat simulations. 

There are two scenario options that can be chosen by the 
user. The first portrays the trading of space for time by 
the blue defender. The brigade is divided into two teams 
that alternately drop back to defend a succession of 
defensive positions. The second portrays the brigade in a 
stand and fight posture. These scenarios were chosen as 
ones that would put the most stress on the maintenance 
system. The simulation ends when the blue force level is 
reduced to 25 % of its original force level. When this 
condition is met/ the program terminates and the results are 
output . 

B. GENERATING THE WORKLOAD 

The first major submodel is concerned with producing 
damaged vehicles for the maintenance system to repair. This 
battlefield recovery model/ entitled the Parametric Analysis 
of Recovery and Evacuation of Tracked vehicles model/ PARET, 
was developed by MAJ A.F.Affeldt to analyze battlefield 
recovery tactics and to determine the heavy equipment 
transport requirements for a maneuver brigade, [ll] 

The PARET model plays a series of battles corresponding 
to the succession of red echelons attacking the defending 
blue force. In each of these battles, casualties are 
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assessed and the time necessary to destroy enough red 
systems to force the red attackers Into a defensive position 
are calculated. A Lanchester type, homogeneous force combat 
model Is used to make these computations. 

The proportion of the damaged vehicles for which 
recovery is to be attempted is computed as the ratio of the 
time available to perform the recoveries, to the total time 
necessary to recover all the damaged blue vehicles. As 
recovery is attempted for each damaged system, attrition of 
the recovery vehicles is stochastically determined. 

As originally written, the PARET model did not consider 
system failures of combat vehicles due to wear and tear. 
Since this type of failure will constitute a significant 
portion of the workload, they were included in this model. 
The assumption of exponentially distributed failure times 
with common mean time to failure for all vehicles is made, 
and system failures are scheduled for each vehicle at the 
beginning of the simulation. Due to the random nature of 
drawing the failure times, some of the failures occur before 
the end of the simulation, and some do not. During the 
pre-battle period, failed systems are taken directly to 
maintenance after a short time delay. Once the battle 
begins, however, the failed systems that require recovery 
are recovered in the same manner as the combat damaged 
veh icl es . 

Since the recovery process is influenced to a great 
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extent by the onset of darkness, night Is represented in the 
model. Several of the parameter values are altered to take 
into account the effects that reduced visibility has on the 
recovery process, and recovery is thereby inhibited. 

As each successful recovery is completed, a job is 
generated for the maintenance system and the attributes 
describing the job are stochastically determined. These 
attributes include the owning unit, the workorder number of 
the job, the firepower and mobility damage percentages, and 
the vehicle type. The component damage is then computed as 
a function of the overall firepower and mobility damage 
values. These component damage percentages are used in the 
maintenance model to determine if a vehicle is to be a 
candidate for cannibalization. 

Once the job is completely characterized by its assigned 
attributes, it enters the maintenance system at the forward 
support detachment that Is in support of the battalion that 
owns the vehicle. 

C. PERFORMING THE REPAIRS 

The second major submodel represents the actions 
affecting the vehicle once it enters the maintenance system 
as a job. Each job Is modelled explicitly and its progress 
is monitored through the system until it is repaired and 
returned to the fighting force, it is evacuated outside the 
brigade area to higher levels of maintenance, or it is lost 
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due to enemy activity affecting the maintenance unit at 
which it is located. 

As the job proceeds through the system, various actions 
are performed on it. These actions include initial 
inspection, obtaining repair parts either through the supply 
system or through cannibalization, transport to higher 
levels of maintenance, and actual repair itself. The time 
that each action requires is drawn at random from a beta 
probability distribution whose parameters are computed from 
the input data. These input time values are taken from 
those supplied by the U.S.Army Ordnance Center and School 
for use in the MASC model. (l2] 

When the job arrives at a forward support detachment, a 
determination Is made as to whether or not the unit has the 
capability to repair the type of damage the vehicle has 
sustained. For instance, if after enemy attack, a 
maintenance unit no longer has any automotive repairmen, it 
could not repair a vehicle with mobility damage. If the 
capability does not exist at the unit to perform the 
required repair, the vehicle Is evacuated to the maintenance 
company. Otherwise the vehicle undergoes an Initial 
i nspect ion. 

Several actions take place during the initial inspection 
of the vehicle. First, the amount of damage sustained by 
the vehicle is evaluated and a determination is made as to 
whether the necessary repairs are authorized at the unit. 
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Next/ the availability of the repair parts necessary to 
perform the repair is checked. Needed parts that are not on 
hand in unit supply are either requisitioned or are obtained 
through cannibalization. Finally/ if the repair is 
authorized and the necessary parts are obtained/ a search of 
the unit is made for a crew of repairmen to actually perform 
the repair. If either the requirement for parts or a repair 
crew is not met/ the vehicle must wait. 

When the requirements are met/ work begins. If parts 
are obtained through cannibalization/ the substitution of 
parts from the source vehicles is performed. After a random 
repair time/ the repair is accomplished and the mobility or 
firepower damage percentage is reduced to zero, depending on 
which type of damage the crew is able to repair. If the 
vehicle has sustained both firepower and mobility damage# 
two separate repair operations must be performed on the 
veh icl e. 

When both the firepower and mobility damage are 
repaired# the vehicle is returned to the fighting force. 
The crew that has completed the repair then attempts to find 
another job to do among those waiting. 

There are several instances where an evacuation of the 
vehicle to a higher level of maintenance is called for. 
First# jobs at forward detachments that need parts are 
evacuated to the maintenance company immediately. Second# 
jobs that have sustained greater damage than the maintenance 
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unit can fix are sent to higher levels of maintenance. 
Third, if a maintenance unit is forced to move to an 
alternate position, vehicles that are not mobile must be 
evacuated. When a vehicle is evacuated from the maintenance 
company to the division support area, it is assumed to be 
lost for the duration of the simulation and it is no longer 
considered in the model. 

D. THE COMBAT ENVIRONMENT 

The third and final submodel deals with the actions of 
the maintenance units, particularly the forward detachments, 
as the result of enemy activity and the combat situation. 
The model portrays the movement of the detachments to new 
positions, as well as attack by the enemy on the 
detachments . 

The distance from the maintenance units to the forward 
line of troops, FLOT, is monitored throughout the 
simulation. Any time this distance gets smaller than a user 
supplied breakpoint value, a move of the unit is triggered. 
After a delay that corresponds to the time needed for the 
unit to dismantle the maintenance site, the detachment 
displaces to a new position at a user supplied speed. 

During the move, and during the time it takes the unit 
to resume its maintenance activities, no jobs are accepted 
for repair. Already accepted jobs that are mobile, 
accompany the unit to its new position. Others are either 
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evacuated to the maintenance company or are destroyed in 
place. 

Upon arrival at the new maintenance site several actions 
take place before the maintenance mission begins again. 
Jobs that were supposed to have been supplied with repair 
parts through cannibalization are checked to be sure the 
source vehicles have also accompanied the unit on the move. 
If the source vehicles are no longer present and there are 
no other source vehicles to supply the appropriate parts, 
these jobs are evacuated to the rear. Then, the crews at the 
detachment are matched with jobs to do. This action 
constitutes a reorgan i zat ion of effort at the new position. 
When these actions are accomplished, repair work resumes. 

The other aspect of combat that is portrayed in this 
submodel is the attrition of the maintenance units 
themselves. The assumption is made in the model that the 
probability of detection and engagement by the enemy of a 
maintenance unit is related to how close the unit is to the 
forward line of troops, and to how many vehicles are present 
at the unit. 

A shaping factor that determines the degree of effect 
the distance of the unit to the FLOT has on the probability 
function is input by the user so that a variety of 
situations can be examined. For example, if the user 
desires to investigate the case that the only detections 
that are made by the enemy are visual from the FLOT, a 
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shaping factor would be selected that would make the 
probability of detection very high over short distances, but 
very low over medium or long distances. 

This probability is evaluated for each of the forward 
detachments at the conclusion of each battle sequence. 
Whether or not the detachments are actually attacked is 
stochastically determined using this evaluated probability 
value. 

The further assumption is made that the maintenance 
capability of the unit is proportional to the number of 
personnel present. Consequently only the personnel 
casualties and the disruption of the unit as the result of 
the attack are modelled. 

The probability that an individual repairman will become 
a casualty during an attack is user supplied. Thereby, the 
user has the ability to determine the severity of the attack 
expected. Whether or not an individual soldier becomes a 
casualty is stochastically determined using this input 
probability value. At the end of the attack, a 
reorganization takes place, and as many crews as possible 
are formed from the repairmen left alive. These functioning 
crews of repairmen are then matched with jobs to be done, 
and work resumes. 

In the event that either or both of the repair 
capabilities, firepower or mobility, are lost by the unit, 
jobs requiring the type of repair that the unit can no 
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any job 



longer perform are evacuated to the rear. Also, 
that arrives at the unit needing that type of repair is 
evacuated immediately. 

E. OUTPUT FROM THE MODEL 

The output generated from a typical replication of the 
model is shown in appendix D. This output includes the time 
values for the various maintenance functions and the 
corresponding beta distribution parameters under the heading 
of Input Time Parameters. The input values that deal with 
the battle and recovery operations, and the maintenance 
system are also shown. For the most part, the values shown 
are the ones that were used to develop and test the model. 

The attributes of every job that enters the maintenance 
system are listed under the heading Job List. The 
attributes include the workorder number, the time the 
vehicle entered the maintenance system, the vehicle type, 
the owning unit, whether the vehicle was damaged in combat 
or was a system failure, the mobility and firepower damage 
percentages, and the component damage percentages. 

The results of each battle sequence are also shown. 
These include the results of enemy attacks on the forward 
detachments, the number of recovery vehicles killed, and the 
number of blue and red systems left. 

The job list and battle results are generated during the 
simulation so that the process can be analyzed in detail. A 
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set of summary statistics is also generated at the end of 
each replication, as well as a complete backlog listing of 
vehicles at the various maintenance units and their job 
status. It should be remembered that the movement of 
vehicles through the maintenance system is a very dynamic 
process, and this particular output gives only an 
instantaneous view of the system. It is included, however, 
to give some insight into the distribution of the workload 
in the system. 

Several statistics are also generated that are measures 
of effectiveness for the system. The results of the 
recovery operations are shown as the numbers of vehicles 
recovered and the number of vehicles needing recovery, and 
the average of these values per battle are also given. In a 
similar fashion the results of the maintenance operations 
are displayed. Of these, the most important is average 
repair cycle time, which is a measure of how long a vehicle 
remains in the system before it is repaired. Since the 
purpose of the forward detachments is to shorten this time, 
this value can be used to compare various employment schemes 
for the detachments. It should be noted that the repair 
cycle time is calculated only for the vehicles that are 
returned to battle. 

In an attempt to put the functioning of the maintenance 
system into the context of its effect on the outcome of the 
battle, the ratio of red casualties to blue casualties is 
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computed and displayed. The user should remember/ however/ 
that the combat model employed in the maintenance model is 
very simple. As such, this statistic should not be 
considered as anything but an extremely gross indicator. 

Finally/ as a measure of the survivability of the 
maintenance units, the percentage of repair personnel still 
alive at the end of the simulation is given. This 
percentage Includes the repairmen in the maintenance company 
that were not exposed to attack. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 



A. PROGRAM PERFORMANCE 

The maintenance model simulation program has shown 
Itself to be extremely fast running and easy to use. It 
compiles in less than 3 minutes of central processing unit 
time, and it takes approximately 20 seconds of execution 
time to complete one replication on the IBM 360-67 at the 
W.R. Church Computer Center at the Naval Postgraduate 
School. The program uses approximately 250 kilobytes of 
core storage. Since only standard data storage procedures 
with no packing of words were used, the model should be 
easily transportable to any installation that has SIMSCRIPT 
11.5 capab 1 1 i ty . 

The program is completely documented in appendix C, and 
instructions for inputing data are included. The input 
values shown In the sample output in appendix D are 
representative of the ones that were used in the design and 
testing of the program. 

Appendix A illustrates the type of application In which 
the model could be used, and data that was actually 
generated by the program is presented. The distance of the 
forward detachments to the forward line of troops was varied 
over a range of 5 to 30 kilometers, and the preliminary 
analysis of the data seems to indicate that benefit is 
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gained by "fixing forward", but the potential for losing 
maintenance assets to hostile action increases the closer 
they get to the fighting. 

B. RECOMMENDATIONS FOR FUTURE ENHANCEMENTS 

As is the case with all models, there are several areas 
in the maintenance model where improvements In methodology 
could be made. 

One such area is the assignment of the damage attributes 
to the jobs entering the maintenance system. Presently, 
damage is determined stochastically using the uniform 
probability distribution. A refinement of the model could 
be made by ascertaining the distribution of damage sustained 
by the combat vehicles. A possible approach to determining 
the distributions would be to use the Simulation of Tactical 
Alternative Responses (STAR) model to generate data for this 
purpose. Cl 33 STAR has the capability to determine the 
impact locations of shots on combat vehicles and to compute 
the probabilities of mobility and firepower damage as the 
result of the impact. These damage probabilities correspond 
to the damage percentages used in the maintenance model. 

Another shortcoming of the maintenance model in its 
present form is its inability to relate the amount of damage 
sustained by a vehicle to the time required to repair it. 

Finally, the attrition model could be improved by 
assessing damage to the vehicles in the area of the attack. 
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including the vehicles organic to the maintenance units. 
Attrition of the maintenance company should also be 
considered in the next revision of the model. 

The structure of the programming is very flexible# and 
consequently# the implementation of these model improvements 
would not be difficult. 
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APPENDIX A 



MODEL EXERCISE 



A. INTRODUCTION 

In this appendix/ the results of a model exercise are 
shown and analyzed. It should be remembered that these 
results are just an exercise/ and that conclusions cannot 
really be drawn from them since many of the input variable 
values that were used to generate the data were educated 
guesses. The exercise does demonstrate a potential model 
appl i cat ion . 



B. EXPERIMENTAL DESIGN 

The analysis technique used is a simple one way analysis 
of variance. The purpose of the technique is to determine 
if the mean values of the yield variables that result from 
different treatments differ from each other in a statistical 
sense. 

Only one of the input variables was changed/ that being 
the initial distance from the forward maintenance 
detachments to the forward line of troops. Every time a 
detachment moves to a new location/ the distance it moves 
also corresponds to this value. Four distance values are 



used: 5 , 


10/ 15/ and 


30 


ki lometers. 


The 30 ki lometer 


di stance 


approximates 


the 


s 1 tuat i on 


in which all the 
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maintenance assets are located at the site of the 
maintenance company. The others represent utilizing the 
"fix forward" concept. 

The yield values are measures of effectiveness that are 
computed and displayed by the program. They are the repair 
cycle time/ the percentage of recovered vehicles repaired, 
the percentage of damaged vehicles repaired, and the 
percentage of maintenance personnel alive at the end of the 
simulation. 

C. DATA 

The following data have been produced from 10 
replications of the maintenance model for each of the 4 
ranges. The mean value for each treatment is displayed below 
the columns. The significance level from the analysis of 
variance, which is the probability of obtaining the data 
under the null hypothesis that all the means are equal, is 
also shown for each set of data. 

To determine which of the treatment means differed, a 
studentized range test was performed on each set of data. 
Mean values marked with asterisks (*) differed from ones not 
marked in the same manner. 
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1. Repair Cycle Time Data 



Rep 


30 km 


5 km 


10 km 


15 km 


1 


4.49 


4.17 


4.44 


3.97 


2 


3.78 


4.20 


3.97 


3.79 


3 


3.96 


3.37 


3.82 


4.16 


4 


3. 71 


3.44 


4.22 


3.91 


5 


3.94 


3.90 


3.99 


4.04 


6 


3.98 


3.94 


3.86 


4.22 


7 


4.64 


3.42 


4.17 


3.71 


8 


4.62 


4.09 


4. 19 


3.75 


9 


3. 79 


3.57 


3. 76 


4.47 


10 


4.02 


3.43 


4.27 


3.86 


mean 


4.09 


3.75* 


4.07 


3.99 


s i gnl f 1 cance 


level * 


0.055 





2. Percentage of Recovered Vehicles Repaired 



Rep 


30 km 


5 km 


10 km 


15 km 


1 


.383 


.340 


.604 


.531 


2 


.414 


.406 


.632 


.349 


3 


.323 


. 570 


. 377 


.549 


4 


.413 


. 399 


.554 


.462 


5 


.442 


. 356 


.604 


.395 


6 


.607 


.436 


. 489 


.422 
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7 



603 



230 



543 



392 



8 


.607 


.437 


.495 


. 447 


9 


.488 


.323 


.417 


.469 


10 


. 504 


.446 


.447 


. 337 


mean 


.478 


. 394* 


. 516 


. 435* 


slgnif 


1 cance 


level = 0. 


0238 




. Percentage 


of Damaged Vehicles 


Repa 1 


Rep 


30 km 


5 km 


10 km 


15 km 


1 


.279 


.224 


.352 


. 297 


2 


.216 


.276 


.245 


. 258 


3 


.226 


.245 


. 259 


.299 


4 


.242 


.248 


. 359 


.311 


5 


.226 


.208 


. 264 


. 341 


6 


.279 


.333 


.354 


.331 


7 


.317 


. 151 


. 356 


. 219 


8 


.279 


.330 


. 204 


.265 


9 


. 243 


. 245 


.341 


. 331 


10 


^ 22 7 


. 318 


. 302 


.250 


mean 


. 253 


.258 


. 304* 


.290 


slgnif 


i cance 


level = 0. 


069 
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4 . Percentage of Personnel Alive 



Rep 


30 km 


5 km 


10 km 


15 km 


1 


1. 000 


.640 


. 730 


.810 


2 


1.000 


.620 


. 870 


.770 


3 


1.000 


. 740 


. 640 


. 700 


4 


1.000 


. 670 


. 860 


. 750 


5 


1.000 


. 700 


.910 


. 780 


6 


1.000 


.720 


.810 


.710 


7 


1.000 


. 710 


.830 


.900 


8 


1.000 


. 710 


. 770 


. 760 


9 


1.000 


. 750 


.790 


.860 


10 


1.000 


.630 


.810 


.830 


mean 


1.000* 


.689* 


. 820 


. 787 



significance level approximately 0.0 

significance level without considering the 30 km group 
is also close to 0.0 



0. ANALYSIS 

The above analyses of variance show that there are 
significant differences in the performance of the 
maintenance system as the result of different deployment 
schemes . 

For the statislcal tests of the hypotheses that the 
means of each treatment group were equal, a type I error 
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rate of 0.1 was chosen because of the relatively small 
sample size and due to the exploratory nature of the 
experiment. 

In each case the null hypothesis that the means were 
equal was rejected. Further analysis was performed to 
determine which of the individual treatments differed. For 
the repair cycle time data, the value for the 5 kilometer 
distance was significantly shorter than those for the 30 and 
10 kilometer distances. However, the repair cycle time only 
considers the vehicles that were actually repaired, and the 
percentage of vehicles repaired that were recovered was 
significantly higher at the 10 kilometer distance than at 
the 5 kilometer distance. This shows that the jobs repaired 
were done faster at the 5 kilometer distance, but more jobs 
were done at the 10 kilometer distance. 

The analysis of the casualty data showed that 
significantly more maintenance personnel became casualties 
at the 5 kilometer distance than at the 10 or 15 kilometer 
distances. This result is intuitively appealing, and it 
demonstrates the price that has to be paid for the increased 
responsiveness of the maintenance system. 

Overall, the data seems to point to the 10 kilometer 
distance as being the one that produces the optimal mix of 
responsiveness and protection for the maintenance assets. 
This distance would correspond to the forward detachments 
being located in the vicinity of the organizational 
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maintenance sections, according to present doctrine. 

Once again the reader is reminded that real conclusions 
cannot be drawn from this data due to the hypothetical 
nature of the input values used. 
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APPENDIX B 



DETAILED METHODOLOGY OF THE MODEL 



A. GENERAL 

In this appendix a detailed description of the 
maintenance model is presented in a form suitable for use by 
analysts and programmers. Addi tional 1 y, a brief discussion 
of the SIMSCRIPT 11.5 programming language and its use in 
the maintenance model is presented. 

B. THE USE OF SIMSCRIPT 11.5 IN THE MODEL 

The SIMSCRIPT 11.5 programming language is designed to 
be used to model discrete event simulations. [10] The 
language is very readable in that the command structure is 
more like English than that of many other languages. This 
feature assists the user in following the flow of the 
program more easily. The basic elements of the language 
correspond exactly to those of the basic structure of the 
event step simulation. They are entities, attributes, sets, 
and events. 

Entities are defined as program elements in the modelled 
system. In the maintenance model for example, vehicles that 
need repair, the crews that do the repairs, and the various 
maintenance units themselves are entities in the system. 
Each entity of a specific class is differentiated from the 
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other entities of that class by the values of its 
attributes. All of the entities in the same entity class 
have the same attribute names but the values of the 
attributes might differ. For instance, in the maintenance 
model, each job entity corresponds to a vehicle. The type 
of vehicle it is, the amount of damage it has sustained, and 
the unit that it came from are all attributes of the job. 
Attributes can have real, integer, or alphanumeric values. 

A set is a group of entities with some common property. 
The maintenance model uses this programming feature in two 
ways. The first is to denote membership of maintenance 
crews in the various maintenance units. Second, the jobs 
that need to be done at a maintenance unit are arranged into 
sets according to their shop status. For example all the 
vehicles that are waiting for repair parts belong to one 
set. 

An event in SIMSCRIPT is an occurrence which takes place 
at a specific time, and results In changing the values of 
entity attributes, removing or adding entities to sets, 
creating or destroying entities, and/or scheduling other 
events to take place at a future time. An example of an 
event in the maintenance model is the arrival of a job at a 
maintenance unit. When this event occurs, the job is either 
inspected immediately, in which case a diagnosis event is 
scheduled for the job, or the inspection Is delayed and the 
job is added to the waiting inspection set. Events take 
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place Instantaneously and do not consume simulated time. 

These data structures greatly simplify the explicit 
modelling of the progress of each job through the 
maintenance system. The set/ entity, and attribute structure 
used in the maintenance model is given in appendix C. 

C. METHODOLOGY 

1. Background 

The model of maintenance in the brigade area 
presented here is a stochastic simulation. Only damage to 
combat vehicles, tanks and armored personnel carriers, is 
considered. The type of damage played is divided into two 
categories, firepower and mobility, and the repairs of these 
types of damage are done separately. 

The tactics used by the supported battalions are 
specified by the user. There are two options. The first 
is an effort to trade space for time, where the brigade is 
divided into two teams that alternately drop back to defend 
a succession of positions. The maintenance system is 
heavily taxed by this tactic since there is frequent 
requirement for the maintenance units to move to alternate 
positions. The second option is a stand and fight option. 

The simulation is ended when the blue force is 
attrited to 25 percent of its original force level. This 
stopping rule is written into the program and would require 
only a minor code modification to change. 
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Since this model is a stochastic simulation, 
replication of each experiment several times is desirable 
and necessary for the purpose of performing statistical 
analyses on the outputs. To reduce the difficulty of 
performing replications, a loop is included In the program 
so that as many replications as desired may be made in the 
same computer run. 

2. Input to the Maintenance System 

a. Generating Combat Damaged Vehicles 

The first major submodel represents the actual 
destruction of vehicles in combat and the recovery and 
evacuation of the damaged vehicles for entry into the 
maintenance system. This model is the SIMSCRIPT 11.5 
implementation of the Parametric Analysis of Recovery and 
Evacuation of Tracked vehicles model, PARET, that was 
developed by MAJ A.F. Affeldt to investigate battlefield 
recovery tactics and to determine heavy equipment transport, 
HET, requirements in the maneuver brigade. [ill The HET 
requirement routines were not needed for use with the 
maintenance model and were therefore excluded. 

The PARET model plays a series of battles 
corresponding to the succession of red echelons attacking 
the blue force. In each of these battles, a BATTLE event is 
called by the program. Attrition of both blue and red forces 
is computed on the basis of a homogeneous force, fixed 
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breakpoint Lanchester type model, under the assumption that 
all the armored vehicles on the battlefield are "tank 
killers". This model is described in detail in ref. 14. The 
assumption is made that the ratio of attrition coefficients 
Is equal to the force ratio at the start of each battle. The 
Initial exchange ratio as well as the initial force levels 
for red and blue are input by the user, and an attrition 
constant is computed to relate exchange ratios in subsequent 
battles to the number of blue systems alive. This attrition 
constant is computed by solving the equation: 

X=exp( - ( ATT . CONST) ( BZERO ) ) (1) 

for ATT. CONST where X Is the initial exchange ratio and 
BZERO is the initial blue force level. Exchange ratios in 
subsequent battles are computed by substituting the number 
of blue systems alive for BZERO in equation (1). 

The actual battle time is a function of the 
exchange ratio, the force ratio (red/blue) at the start of 
the battle, and the breakpoint which is the hypothesized 
attrition percentage that will force red into a defensive 
position. The value of this breakpoint is supplied by the 
user. The battle time is computed as: 

Cl=X**(-.5) (2a) 

C2=ln((-Y(BP)+((l/X)-(Y**2)(l-BP)**2)**.5)/(X**(-.5)-Y)) (2b) 
TB=(C1) (C2) (2) 

where TB is the battle time, Y is the red to blue force 
ratio, BP is the breakpoint, and X is the exchange ratio. 
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After red assumes its hasty defensive position, 
time elapses until the next echelon closes, reorganization 
takes place, and the next battle begins. This time for 
rollup and restart is a function of the echelon spacing, a 
user input, and the interdicted rate of advance, computed as 
a product of the user input nominal rate of advance and a 
stochastically generated interdiction level. The 

interdiction level is allowed to vary uniformly between 0 
and 50 percent. So time for rollup and restart is computed 
as : 

TRR=(SPACE. ECH/RI )+TB+U(a,b) (3) 

where TRR is the time for rollup and restart, TB is battle 
time, SPACE. ECH is the distance between red echelons, R is 
the nominal rate of advance of the next red echelon, and I 
is the interdiction level. Notice that a uniform random 
number is drawn to represent the time needed for 
reorganization before the battle begins again. The limits 

on this random number, a and b, are 5 and 10 minutes of 
delay time respectively. 

The time available for recovery is then computed 
as the sum of the battle time and the rollup and restart 
time less a correction factor which accounts for the time 
between the start of the battle and the first red casualty. 
So the recovery time is computed thus: 

REC. Tl ME=TB+TRR+C (4) 

where REC. TIME is the recovery time, TRR is the time for 
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rollup and restart, and C is the correction factor. 



Since the proportion of damaged vehicles that can 
be recovered is postulated in the PARET model to be equal to 
the ratio of the time available to perform recoveries, 
REC.TIME, to the time required to recover all damaged 
vehicles, the necessity arises to determine the number of 
vehicles requiring recovery, and the time needed to 
accomplish all these recoveries. 

Red survivors can be computed as: 

R. All VE=BP(RZERO) (5) 

where R. ALIVE is the number of red survivors, BP is the 
breakpoint for the red forces, and RZERO is the red force 
level at the start of the battle. 

Using this value, the blue survivors are 
calculated as: 

B.ALI VE=BZERO-(RZERO-R. ALIVE) /X (6) 

where B. ALIVE is the number of blue survivors, BZERO is the 
blue force level at the start of the battle, and X is the 
exchange ratio. The casualties are easily computed as the 
difference between BZERO and B.ALI VE. 

Not all vehicles are recoverable and some are 
self or like recoverable. The percentages of unrecoverabl e 
and self-like recovered vehicles are user inputs. The 
number of vehicles needing recovery is computed as: 

NR =(1-UNR EC-SELF. LI KE) (BZERO-B. ALI VE) (7) 

where NR is the number needing recovery, UNREC is the 
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percentage of unrecoverable vehicles/ and SELF. LIKE is the 
percentage of self or like recovered vehicles. 

The time needed to recover all the vehicles 
needing recovery/ TR/ is a function of the number needing 
recovery/ NR, the number of recovery vehicles available/ NA # 
the time to hookup at the recovery site/ TH/ the time to 
travel to the recovery site, TG/ and the time needed to 
travel from the recovery site to the maintenance collection 
point/ TC. The user must supply both the loaded and 
unloaded recovery vehicle speeds/ CCSL and CCSU 
respectively/ so that TG and TC can be computed. TG and TC 
are calculated as the ratio of distance to be moved to 
speed/ modified by a disorientation factor, D, which 
represents the tendency for recovery vehicles to become lost 
on the battlefield. This factor is a percentage of time 
added to both travel times and is also supplied by the user. 
TC, TG, and TR can be calculated as follows: 

TC=MCPD(1+D)/CCSL (8) 

TG a MCPD(l+D)/CCSU (9) 

TR=(NR/NA) (TG+TH+TC) (10) 



where MCPD is the distance from the recovery site to the 
maintenance collection point. 

The number of vehicles for which recovery is 
attempted, RECKS, is then computed as: 

RECKS=NR( REC . T IME/TR) (11) 

This procedure is repeated for every simulated 
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battl e . 



b. Generating System Failures 

The PARET model as originally designed did not 
consider ordinary breakdowns of equipment due to use. Since 
these system failures comprise a significant portion of the 
workload of the maintenance system, they are included in the 
maintenance model. 

Prior to the start of the simulation in the main 
program, a FAILURE event is scheduled for each piece of blue 
equipment, independent of the battles. The times of the 
system failures are assumed to be exponentially distributed, 
and the mean time to failure for each item is a user input. 
This mean time to failure is in operating hours, and the 
proportion of time that the equipment operates is divided 
into the mean time to failure value to convert it to real 
time. This proportion is also a user input. 

During the time that preceeds the first 
engagement, the only workload generated is from these system 
failures. Since the model assumes 100% availability of 
equipment at the start of the simulation, the further 
assumption is made that the number of recovery vehicles in 
the supported units will be more than adequate to handle the 
evacuation requirements before the actual fighting starts. 
Therefore the actual recoveries of system failures are not 
explicitly modelled, and they arrive at the maintenance unit 
after a short delay of beween two and three hours. Once the 



54 



battle sequence begins, however, the system failures that 
occur are added to the number of casualties assessed in the 
battle and the recovery of the system failures proceeds in 
the same way as the recovery of combat damaged vehicles. 

The FAILURE event also determines the unit that 
the vehicle comes from and reduces the number of combatants 
in that unit. To avoid system failures on vehicles that 
have already been damaged in combat, the proportion of blue 
vehicles alive is computed in the FAILURE event and a random 
comparitor is drawn and compared with the proportion. If 
the random number is larger than the proportion, it is 
assumed that the vehicle has already been combat damaged and 
the system failure is ignored. 

c. Making Recoveries 

Once the total number of vehicles that need 
recovery, both system failures and combat damaged vehicles, 
is known in a specific BATTLE event, a recovery mission is 
attempted for each. At each attempt, the recovery vehicle 
and the vehicle to be recovered are vulnerable to attack. 
The assumption is made that the recovery vehicle will be 
vulnerable to artillery attack during the trips to and from 
the battle site, and to direct fire only at the battle site. 
The probability of kill is postulated to be a function of 
the times that the recovery vehicle is exposed in each of 
these phases of its mission. These exposure times are 
adjusted to take into account the various situational 
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factors that affect the probability of kill of the recovery 
veh i cl e. 

During the movement phases of the mission to and 
from the maintenance collection point, the exposure times 
are TC and TG as previously computed. The probability of 
kill is calculated as a function of these times, and the 
developer of the PARET model postulated the following 
relation: 

PK=tangent( time) (12) 

This relation gives a monotone increasing function in time, 
since time is measured in hours and the tangent is computed 
as if time is measured in degrees. A random comparitor is 
then drawn to determine if the recovery mission is 
unsuccessful due to interdiction during the movement phases. 

Similarly, the adjusted exposure time on the 
battle site during the hookup is assumed to be a function of 
the hookup time, TH, the reciprocal of the red target 
priority of a recovery vehicle, Z, the probability of 
incorrect identification of the recovery vehicle, P, and the 
probability of line of sight, L, which are all supplied by 
the user, as well as a randomly drawn probability of 
supression, S. The adjusted exposure time, TE.HOOK, is 
computed as: 

TE.HOOK=L(S)(Z)(P)(TH) (13) 

This value is then used to calculate the probability of kill 
using the following hypothesized relation: 
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PK=ABS ( 1/ 1 n ( TE . HOOK) ) 



( 14 ) 



Once again a random comparitor is drawn and compared to the 
value of the probability of kill to determine the success of 
the mi ss ion . 

When a recovery mission is determined to be a 
failure/ the model assumes that both the recovery vehicle 
and the vehicle to be recovered are catastrophically killed 
and are lost for the rest of the simulation, 
d. Determining the Job Attributes 

At the conclusion of each successful recovery 
mission/ a BREAK event is scheduled to occur at a uniformly 
distributed time during the available recovery time. It is 
in the BREAK event that the various attributes of the 
recovered vehicle are determined. 

After a job entity is created and a workorder 



number 


is assigned, a random 


compar i tor 


i s 


drawn 


and 


compared 


to the proportion of 


tanks in 


the 


force 


to 



determine whether the vehicle type is a tank or an armored 
personnel carrier. The proportion of tanks in the force is 
user suppl l ed . 

The damage sustained by the vehicle is then 
stochastically determined. The damage to the vehicle is 
expressed as a number between 0 and 1/ and the number is 
interpreted to be the percentage of major subsystems that 
have been affected. As such, the range of the possible 
damage that can be randomly drawn is dependent on the 
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vehicle type and on how the vehicle was damaged. A system 
failure, for instance, would probably not be as badly 
damaged as a vehicle damaged in combat. 

There are two of these damage proportion values, 
corresponding to the mobility functions of the vehicle 
(MOB. DAM), and to the firepower functions of the vehicle 
(FP.DAM). These are considered separately in the repair of 
the vehicle. 

In each BREAK event, a damage assessment routine, 
ASSESS. DAM is called to determine the distribution of the 
damage in each major subsystem of the vehicle. The 

subsystem damage values are also expressed in terms of a 
proportion and these values correspond to the percentage of 
parts that have been rendered unserviceable in the 
subsystem. The values are used in the cannibalization 
routines and are stored in a two dimensional array, DAM.REC, 
and are indexed by workorder number. The major subsystems 
for each vehicle with type TANK are: 

1 Engine 

2 Drive Train (transmission) 

3 Cool i ng System 

4 Fuel System 

5 Electrical System 

6 Track and Suspension 

7 Fire Control - Optics 

8 Fire Control - Ballistic Computer System 
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9 Turret 



10 Hydraul i cs 

11 Armament 

Notice that subsystems 1-6 are mobility related and would 
therefore be repaired by an automotive crew, and subsystems 
7-11 are armament related and would be repaired by an 
armament crew. 

Similarly, the major subsystems for vehicles 
wi th type APC are: 

1 Engine 

2 Drive Train 

3 Fuel System 

4 Cool i ng System 

5 Electrical System 

6 Track and Suspension 

7 Fire Control 

8 Hydraulics - Cupola 

9 Armament 

For this vehicle type, the mobility subsystems are 1-6, and 
the firepower subsystems are 7-9. Notice that the total 
number of subsystems is different depending on the vehicle 
type. 

A line of output is generated for every job 
under the heading JOB LIST. The line includes the workorder 
number, the time the vehicle entered the maintenance system, 
the owning unit, the vehicle type, the firepower and 
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mobility damage, and the component damage values. 

At the conclusion of the BREAK event, the job is 
scheduled for arrival at the forward maintenance detachment 
that is In support of the battalion that owns the vehicle, 
d. The Daylight Event 

The recovery of combat damaged vehicles on the 
battlefield is greatly affected by darkness, and as such, 
event DAYLIGHT is included in the model to represent the 
effects . 

The assumptions are made that the first battle 
begins at dawn and that there are 15 hours of daylight 
followed by nine hours of darkness each day. When darkness 
falls, several of the parameters are changed to reflect the 
increased difficulty of night recovery operations. These 
parameters include the cross country speeds of the recovery 
vehicles, the average hookup time at the recovery site, and 
the disorientation factor. 

Some other parameters that relate to the 
movement of the maintenance units themselves are also 
adjusted for the effects of darkness. These are the setup 
time after a move to a new position, and convoy movement 
speeds . 

The magnitudes of the changes to the parameters 
in this event routine are written into the program, and 
changes would require only minor alteration of the coding. 
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3 . Modelling the Maintenance Functions 



a. General 

The second major submodel portrays the actions 
affecting the damaged vehicles once they enter the 
maintenance system as jobs. Each job is a separate and 
distinct entity, and its progress through the system is 
modelled explicitly until the job is completed and returned 
to the combat force, it is evacuated to a higher level of 
maintenance outside the brigade area, or it is lost due to 
enemy activity affecting the maintenance units. 

As the job proceeds through the system, various 
maintenance functions are performed on it. These functions 
include initial inspection, ordering and waiting for the 
repair parts needed to accomplish repair, repair of the 
armament and automotive functions of the vehicle, and 
transport to higher levels of the maintenance system. 

The time that each function requires is drawn 
from a beta distribution, the parameters of which are 
specified in the input data. For each function, the minimum 
possible time required to perform the action, the maximum 
time required, and the average time are entered and stored 
in the T. ACTION array. 

Since the range of the beta distribution is from 
0 to 1, these values must be scaled down to fit that range 
so that the appropriate beta parameters can be obtained. 
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This procedure for scaling down and fitting the beta 
distribution is accomplished in the COMP. TIMES routine. The 
parameters once computed are stored in the A array and are 
output along with the corresponding T. ACTION vector and the 
index number of the particular maintenance action. The 
index numbers and the maintenance functions that correspond 
to them are: 

1 - Inspection time at the forward detachments 

2 - inspection time at the maintenance company 

3 - repair time for automotive jobs 

4 - repair time for armament jobs 

5 - waiting time for repair parts delivery 

6 - movement time from forward detachment to 

maintenance company 

7 - waiting time for evacuation from forward detachment 

to company 

8 - waiting time for evacuation from company to 

division rear 

The actual times that are used in the model are 
those provided by the U.S. Army Ordnance Center and School. 
[12l The maintenance times given for repair of the tanks 
are those postulated for the M60A1 tank and not for the XM1. 
Similarly the repair times for the armored personnel carrier 
are based on data for the M113 series and not the new 
Infantry Fighting Vehicle. The assumption is made however, 
that the values are close enough to be useful. Since these 
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values are input as data, it would be very easy to change 
them if better ones become available. 

Each time an event is scheduled and a time is 
drawn from the appropriate beta distribution, the number 
drawn is scaled back up to real time scale corresponding to 
that given in the T. ACTION vector. 

When a beta distributed random number is 
generated, SIMSCRIPT uses its internal gamma random number 
generator. Occasionally, the parameters for the gamma 
random number generator are such that, although they are 
mathematically and theoretically correct as parameters of 
the gamma distribution, the gamma generator gives an error 
message stating that the parameters used are incorrect. 
Consequently the program terminates. For this reason a more 
robust gamma random number generator routine, GAMMA. F, is 
included in the program. This routine overrides the 
internal gamma routine. 

b. Arrival and initial Inspection 

At the conclusion of the BREAK event, once the 
various attributes describing the job are determined, an 
ARRIVAL event is scheduled immediately for the job, causing 
It to enter the maintenance system at the forward detachment 
supporting the battalion that owns the vehicle. 

In this ARRIVAL event two determinations are 
made. First, the remaining capability of the unit to 
perform the needed repair is evaluated. If, after enemy 
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attack, no automotive repairmen are available, it would be 
impossible to repair a vehicle with mobility damage. 
Consequently the vehicle is evacuated to a higher 
maintenance level. A MOVE. REAR event is scheduled to 
accomplish the evacuation and the job is filed in the 
waiting transport queue, WT. QUEUE. 

Second, if the capability to do the type of 
repair required for the vehicle is present, the availability 
of an inspector to perform the initial inspection is 
determined. If he is available, a DIAGNOSIS event is 
scheduled. Otherwise the vehicle must wait for inspection 
in the Wl .QUEUE. 

The actions of the inspector are portrayed in 
the DIAGNOSIS event. These actions include determination of 
parts availability either from repai r parts supply or by 
cannibalization, the assignment of a crew of mechanics to 
perform the repair if the parts are available, and 
determination of whether or not the repair can be 
accomplished at that maintenance level. 

Parts availability is determined stochastically, 
and a random comparitor is drawn and gamed against the user 
input value of the probability that the unit in question has 
the parts. 

If parts are not available through the supply 
system, a check of the other vehicles present at the 
maintenance site is made to determine whether parts can be 
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obtained by cannibalization. 

In the event that parts are available from 
either source, a search of the unit is made to find an idle 
crew to perform the repair. Since firepower and mobility 
damage must be repaired by separate crews, the crews are 
located by their assigned mission. When the appropriate 
personnel are found, the job is filed either in the ARMAMENT 
set or the AUTOMOTIVE set and a REPAIR event is scheduled. 
If no crew with the correct mission type is located, the job 
is filed in the waiting shop set (WS. QUEUE). 

If parts are not available and the vehicle is at 
a forward detachment, the job is evacuated to the 
maintenance company and a MOVE. REAR event is scheduled. The 
assumption is made that the time required for parts to be 
delivered to the forward detachments would be too long 
considering the need for the detachments to remain mobile, 
and considering the short duration of their stay at any one 
place. 

At the maintenance company, if the need arises, 
parts are ordered and a PARTS. COME event is scheduled. The 
job is then filed in the WP. QUEUE set correspondi ng to the 
group of vehicles that are in waiting parts status. 

Finally, The waiting inspection set is checked 
for any other vehicles that need to be inspected. If there 
are any there, another DIAGNOSIS event is scheduled and the 
appropriate job is removed from the waiting inspection set. 
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c. Obtaining Repair Parts 

There are two methods of obtaining the repair 
parts necessary to perform repairs, through the supply 
system and through cannibalization. 

Parts delivered through the supply system are 
portrayed in the PARTS. COME event which is scheduled in the 
DIAGNOSIS event. The assumption is made that a job will not 
be worked on unless all of the repair parts necessary are 
present. This assumption precludes repairing mobility 
damage while parts are still needed to repair firepower 
damage. As such, when a PARTS. COME event is executed and 
the parts for a job arrive at the maintenance facility, 
mobility and firepower damage are again considered 
separately in locating crews to perform the repairs. The 
procedure used to find crews is identical to that in event 
DIAGNOSIS. Repairs are scheduled to occur and the job is 
filed in the AUTOMOTIVE set or the ARMAMENT set as 
appropriate. If no crews are available the job is filed in 
the WS. QUEUE signifying that it is waiting shop. 

d. Cannibal i zat i on 

The other source of repair parts is 
cannibalization. There are two instances in the process 
when cannibalization is considered for a vehicle. First, in 
the DIAGNOSIS event, if the job is determined to need parts 
that are not present in the unit supply, the other vehicles 
at the unit for repair are checked as possible sources. 
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Next, at the conclusion of a REPAIR event, if no other jobs 
are in a waiting shop staus, a check is made of all the jobs 
that are waiting for parts or waiting for transport to a 
higher echelon of maintenance to see if parts can be 
obtained to perform a repair. 

The only vehicles considered as sources for 
parts are those either waiting for evacuation to the rear or 
those waiting for parts. All of the other vehicles present 
at the maintenance site are either waiting for repair or are 
in the process of being repaired, and no purpose would be 
served by removing parts from them. The jobs waiting for 
evacuation cannot be repaired at the unit in question, so 
nothing is lost by taking the serviceable parts from them. 
The jobs waiting for parts to arrive cannot be worked on 
until the parts arrive, so removing parts from them merely 
increases their wait. 

The assumption is made that the inspectors in 
the maintenance unit would know how each vehicle was damaged 
and what parts are serviceable and available for 
cannibalization. Therefore, no time is assessed for the 
parts availability determination. 

When the attributes of each job were first 
determined in the BREAK event, the damage assessment 
routine, ASSESS. DAM, was called to stochastically determine 
the proportion of unserviceable parts in each major 
subsystem of the vehicle. These proportions are used in the 
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cannibalization routine, CANNIBAL, to compare parts 
requirements wi th availability for each subsystem of the 
veh 1 cl e . 

When a job is considered for cannibalization, 
the CANNIBAL routine checks each subsystem of the job 
against those in waiting transport status, WT. QUEUE, and 
then against those in waiting parts status, WP. QUEUE, until 
the supply of vehicles has been exhausted, or until the 
parts requirements has been met. This checking procedure 
entails several steps. First, the particular subsystem of 
the job Is examined to see if parts are needed. Then, if a 
requirement exists, possible source vehicles are examined to 
see if the proportion of parts available exceeds the 
proportion needed. If not, the needed parts are considered 
not available on that potential source vehicle. If so, a 
random comparitor Is drawn and compared to the difference 
between the proportion of parts available on the source 
vehicle, and the proportion of parts needed for the job. 
This random comparison procedure represents a check to see 
if the parts needed match the parts available on the source 
veh i cl e. 

When parts are located, the entity number of the 
source vehicle is recorded in a two dimensional array, 
CAN.REC, which is a list of the source vehicles for each 
subsystem of each job that is to be supplied by 
cannibal i zat ion. 
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The source vehicles that are waiting transport 
to the rear have their evacuations cancelled, and they are 
not rescheduled until the parts are removed in the 
SUBSTITUTION routine. If the source vehicle is waiting for 
parts, its PARTS. COME event is cancelled and a new one is 
scheduled either at the time that the parts to be removed 
arrive, or at the the time the original parts were to 
arrive, whichever is later. 

Jobs for which parts are located through the 
cannibalization routine are then placed in a waiting shop 
status. When a repair is finally scheduled for the job, its 
non-zero IN. CAN attribute will indicate that a substitution 
of parts from the source vehicles is required before the 
repair can be made. The IN. CAN attribute corresponds to a 
row of the CAN.REC array which contains the list of source 
veh i cl es . 

e. Performing the Repair 

The actual repair of the vehicle is accomplished 
In the REPAIR event. Each repair has a specified job and a 
specified crew. The crew will have the capability to repair 
either firepower damage or mobility damage depending on its 
assigned mission. Consequently, a vehicle that has 
sustained both firepower and mobility damage must have two 
REPAIR events scheduled for it. 

If the repair parts for the job are to be 
obtained through cannibalization, the SUBSTITUTION routine 
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is called. This routine increases the proportion of 
unserviceable parts in the appropriate source vehicles by an 
amount correspond! ng to the proportion for the job to be 
repaired. Evacuations are then rescheduled for source 
vehicles requiring them. 

The repair is then performed by setting either 
the firepower damage attribute, FP.DAM, or the mobility 
damage attribute, MOB. DAM, to zero depending on the mission 
of the crew doing the work. If, at the conclusion of the 
repair, both of these attribute values are zero, the job is 
considered complete and it is filed in the CLOSED. JOB set. 
The fighting force is also increased at this time, and the 
vehicle will participate in the next battle. 

The remainder of the REPAIR event entails 
finding another job for the crew to work on. The first 
place checked is the group of jobs that are waiting shop. 
If a job is found that has damage the crew has the 
capability to repair according to its mission attribute, the 
job is removed from WS. QUEUE and a REPAIR event is scheduled 
f o r it. 

If no appropriate jobs are available in the 
WS. QUEUE, each vehicle in waiting transport status and then 
each job vehicle in waiting parts status is checked to see 
if parts can be found through cannibalization, so that work 
can be done. If any such job can be found, a REPAIR event 
is scheduled for it. I f no jobs can be found that the crew 
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in question can perform, the OCCUPATION attribute of the 
crew is changed from busy to idle, and the crew will wait 
for a job to become available. 

f. Evacuations to Higher Levels of Maintenance 

There are several reasons why a vehicle would 
require evacuation to the rear. First, if the damage 
sustained by the vehicle is greater than the maintenance 
unit has the capacity to repair, the job must be evacuated. 
Next, if parts are not available at a forward detachment for 
a job, it must be evacuated. Finally, if a maintenance unit 
moves to an alternate position, its jobs must be evacuated. 

These evacuations are accomplished in the 
MOVE. REAR event. If the job Is to be evacuated from a 
forward detachment to the maintenance company, an ARRIVAL 
event is scheduled to bring the vehicle to the company. If 
the job is to be evacuated to the division support area, it 
is filed in the EVAC.JOB set and is no longer considered in 
the model . 

4. Modelling the Combat Functions 

a. Movement of the Maintenance Units 

The movement of maintenance units to new 
positions is accomplished in the JUMP and GET. THERE events. 
During a move, time is expended and no maintenance functions 
can be performed. Only mobile vehicles accompany the unit 
on the move. The others are left behind unless they can be 
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evacuated prior to the unit leaving. 

A move is triggered when, in the BATTLE event, a 
maintenance unit gets too close to the forward line of 
troops, FLOT. The distance at which the unit is too close 
is input by the user as the variable B.DIST. The rate of 
movement of the FLOT during the battle is also a user input 
as the variable FLOT. MOVE which is expressed in kilometers 
per hour. Therefore, the distance from the FLOT to the 
maintenance unit is decreased by that rate multiplied by the 
time of battle during the BATTLE event. 

Additionally, when the option to represent the 
tactic of trading space for time is selected by the user, a 
further reduction of four kilometers in the distance from 
the maintenance unit to the FLOT is made for two of the 
units as one of the battalion teams moves to an alternate 
pos i tion. 

When the maintenance unit moves, the assumption 
is made that the unit will move to a new position that is 
the same distance from the old position as the old position 
was from the FLOT at the start of the first battle. 

The speed in which the unit moves to its new 
position is user input as the variable CON. SPEED. This 
speed is reduced by event DAYLIGHT during night operations. 
The time it takes the unit to move is the quotient of the 
distance moved and the speed, plus the time it takes the 
unit to setup and resume its maintenance mission. This 
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SETUP. TIME variable is also a user provided value, and is 
changed by event DAYLIGHT as well. 

The calculation of the movement time is made in 
the JUMP event, and a GET. THERE event is scheduled using 
that calculated time. Also, entity records of jobs that do 
not accompany the unit are removed from the sets to which 
they belong and are destroyed. During the move, the T.JUMP 
attribute of the maintenance unit has a nonzero value 
signifying the time at which the unit will once again begin 
functioning. No ARRIVAL events will occur for that unit 
until after that time. 

The GET. THERE event marks the resumption of 
maintenance activities at the new position. Vehicles that 
have accompanied the unit and are in waiting shop status and 
need parts from a cannibalization are rechecked to make sure 
the source vehicles are still present at the unit. If not, 
and if the parts cannot be obtained from vehicles that are 
with the unit, the vehicle is evacuated and a MOVE. REAR 
event is scheduled for it. 

Another function performed in the GET. THERE 
event is the matching of idle crews with jobs in waiting 
shop status. This action represents the reorganization of 
effort at the new position. When crews are matched with 
jobs to be done, repairs are scheduled. 

b. Attrition of the Maintenance Units 

The detection of the maintenance units by the 
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enemy, the allocation of fires against them, and the actual 
attrition of personnel is portrayed in this submodel. The 
assumption is made that the probability of detection of a 
maintenance unit by the enemy and the probability that the 
enemy will decide to engage the unit are functions of how 
close the unit is to the enemy and of the number of vehicles 
at the maintenance unit. Therefore the following model is 
postulated: 

Pr ( engagement ) *Pr (engagement /detect i on) Pr (detect ion) 

Pr ( detect ion) =exp( (-VR)**A) 

where V is the squareroot of the reciprocal of the number of 
vehicles present at the unit, R is the distance from the 
forward line of troops to the maintenance unit in 
kilometers, and A is a user supplied shaping factor that 
determines the degree of range dependency of the function. 
The probability of engagement given the detection of a 
maintenance unit is assumed to be unity for the model due to 
the great amount of red artillery available. Several plots 
of the probability function are presented in figure 1. 

At the conclusion of each BATTLE event, routine 
DET. ALLOC is called, and this probability function is 
evaluated for each maintenance unit. A random comparitor is 
then drawn to see if the enemy attacks the unit. If so, 
routine ATTACK is called. 

The assumption is made that the maintenance 
capability of a maintenance unit is proportional to the 
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Figure 1. Probability of Detection Plots 
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number of maintenance personnel present. Consequently only 
the personnel casualties and the disruption of the 
maintenance activities of the unit are portrayed. 

For each individual person present at the time 
of the attack, a random comparitor is drawn and compared to 
the user input value of the probability of kill for 
personnel, PK.PERS. The program keeps track of the number 
of each type of repairman present at the unit. These 
numbers are decreased each time an individual is killed. 

It is assumed that in order to function, a crew 
must have at least two repairmen. Consequently, after the 
number of kills has been evaluated, a reorganization takes 
place. In this reorgan i zat ion as many crews as possible are 
formed from the repairmen left alive. The rest of the crews 
have their OCCUPATION attribute value changed to dead, and 
are no longer considered in the model. 

The crews left functioning are then matched with 
jobs to be done. Repairs in progress by crews that are not 
killed are delayed until the end of the attack. Similarly, 
inspections that are taking place at the start of the attack 
are also delayed. 

Finally, in the event that either or both of the 
repair capabilities, firepower or mobility, are totally 
eliminated, any job that requires that type of repair must 
be evacuated to the rear. These jobs are removed from the 
sets they are filed in, and MOVE. REAR events are scheduled 
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to effect the evacuations. 

If repair capabilities are lost by the unit, any 
future jobs received will immediately be scheduled for 
evacuation to the maintenance company. As such, the forward 
detachment will serve only as a maintenance collection point 
where damaged vehicles are brought to be sent to the rear. 
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APPENDIX C 



PROGRAM DOCUMENTATION 



A. INTRODUCTION 

In this appendix# the maintenance model program is fully 
documented. The set# entity# and attribute structure is 
described in detail. Each program module is discussed and a 
line by line explanation of the computer coding is given. 
Also all variables are defined. The reader is refered to 
appendix E where a program list is supplied. 

B. ENTITY# SET# AND ATTRIBUTE STRUCTURE 
1. The MAI NT. UNIT Entity 

The MAINT.UNIT entity refers to the maintenance 
units# both the forward detachments and the maintenance 
company. Each maintenance unit owns the following sets: 

SHOP - set of crews in the maintenance unit 

Wl .QUEUE - set of jobs in waiting inspection status 

WP. QUEUE - set of jobs in waiting parts status 

WS. QUEUE - set of jobs in waiting shop status 

WT. QUEUE - set of jobs waiting transport to the rear 

AUTOMOTIVE - set of jobs being worked on by automotive 
repa i rmen 

ARMAMENT - set of jobs being worked on by armament 
repa i rmen 
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Each MAINT.UNIT entity has the following attributes: 
INSPECTOR - number of idle vehicle inspectors 
NAME - identification of MAINT.UNIT with the following 
possible values: 

CO. MAI NT - defined to mean 0, company 
DET1.MAINT - defined to mean 1, detachment 1 

DET2.MAINT - defined- to mean 2 , detachment 2 

DET3.MAINT - defined to mean 3/ detachment 3 

DET4.MAINT - defined to mean 4, detachment 4 

VEH. COUNT - number of vehicles present at the unit 
D.FLOT - distance from the unit to the PLOT 
NM. FOLKS - number of automotive repairmen at the unit 
NF. FOLKS - number of armament repairmen at the unit 
T.JUMP - the time in which the unit will reach its new 
location after a move 

All the maintenance units belong to a system set 
called SUP. BN which stands for Support Battalion. 

2. The JOB Enti tv 

The JOB entity represents a damaged vehicle that 
enters the maintenance system to te repaired. Each JOB 
entity is character i zed by the following attributes: 

WO.NUM - workorder number of the job 

VEH. TYPE - vehicle type; has the following possible 
values : 

TANK - defined to mean 1 
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APC - defined to mean 2, armored personnel carrier 
UNIT - indicates which of the 4 supported battalions 
the vehicle has come from and will return to when It is 
repa i red 

TIME. DOWN - time, measured in days, that the vehicle 
entered the maintenance system 

MOB. DAM - percentage of mobility damage, a number 
between 0 and 1 

FP.DAM - percentage of firepov/er damage, a number 
between 0 and 1 

T. ARM. REP - time used to repair armament damage 
T. AUTO. REP - time used to repair automotive damage 
REP. UNIT - NAME attribute of the maintenance unit that 
repairs vehicle 

TOT. DAM - total of FP.DAM and MOB. DAM; not used 

IN. CAN - row index of CAN.REC array that lists the 

source vehicles for cannibalization 

CAN.NUM - the number of vehicles to which job provides 
parts for cannibalization 

LOOP.CH - flag to mark vehicle to be removed from set 
The JOB entities can become members of various sets 
as they progress through the maintenance system. These sets 
include the ones listed under MAINT.UNIT which represent 
groupings of jobs with the same status. In addition to 

those sets are three others to which a job may belong. They 
are: 
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CLOSED. JOB - the set of jobs for which repairs have 
been successfully completed 

EVAC.JOB - the set of jobs that have been evacuated out 
of the brigade area 

KILL. JOB - used to temporarily hold jobs before they 
are destroyed at the end of a replication 

3. The CREW Entity 

The CREW entities represent the groups of repairmen 
in a maintenance unit. The attributes that describe the 
crews are: 

MISSION - indicates which type of damage the crew can 
repair; has the following possible values: 

AUTO - defined to mean 1 , repairs mobility damage 
ARM - defined to mean 2 , repairs firepower damage 
OCCUPATION - indicates what the crew is doing at any 
time in the simulation; has the possible values: 

IDLE - defined to mean 0, waiting for a job to do 

BUSY - defined to mean 1, working on a job 

DEAD - defined to mean 2 , killed in an attack 

N. FOLKS - number of repairmen in the crew 

Each crew entity belongs to the SHOP set of one of 
the maintenance units. 
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C. EVENTS AND ROUTINES 



1. The Preamble 

The preamble of any SIMSCRIPT 11.5 program is used 
to set up the data structures in terms of entities, sets, 
and attributes; define event routines and list their 
arguments; set up the mechanism for collecting statistics by 
means of the TALLY statements; and define the variables that 
are global in the program. 

The preamble for this program accomplishes these 
functions and is basically self explanatory. 

2 . The Ha i n Program 

The purpose of the main program is to read data. 
Initialize variables to the appropriate values, create the 
maintenance unit and crew entities and initialize their 
attributes, schedule FAILURE events for all the vehicles in 
the blue force, and schedule the first BATTLE and DAYLIGHT 
events. The main program also has the replication loop 
contained in it, which is used to repeat the simulation 
experiment as many times as the user desires. 

Explanation of the coding: 

Lines 1-5 reserve core for various arrays 

Lines 6-9 define local variables for the main program 

Lines 10-11 read input variables 

Lines 12-18 generate initial array of random number seeds 
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Lines 19-32 read input variables 

Line 33 calls COMP. TIME routine to read and compute beta 
parameters 

Lines 34-35 initialize variables 

Line 36 computes total number of maintenance personnel in 
system 

Line 37 begins replication loop 

Lines 38-55 initializes variables for each replication 
Lines 56-58 prints initial parameter values on first 
repl i cat i on only 

Line 59 computes the attrition constant 

Lines 60-61 schedules FAILURE events for all blue vehicles 
Lines 62-68 initialize variables for replication 
Line 69 performs initialization for stand and fight option 
Lines 70-76 create the maintenance company and assign 

attr i butes 

Lines 77-82 calculates number of crews in maintenance 

company and the number of personnel in each crew 
Lines 83-90 creates the crews for maintenance company and 
assigns attributes 

Lines 91-112 repeats maintenance unit and crew creation 

with attribute assignment for all forward detachments 

Line 113 schedules first BATTLE event 

Line 114 schedules first DAYLIGHT event 

Line 115 prints Job List heading 

Line 116 calls Timing Routine and starts the simulation 
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Line 117 end of replication loop 



3. The FAI LURE Event 

The FAILURE event routine is executed whenever a 
blue vehicle breaks down due to wear and tear and not as a 
result of enemy action. The event determines the owning 
unit of the vehicle and decreases the number of combatants 
in the unit. To avoid having a system failure for a vehicle 
that has already been damaged in combat/ a random number is 
drawn and compared to the proportion alive in the unit. If 
the random number exceeds the proportion alive/ the vehicle 
in question is considered to have already been damaged in 
combat . 

Expanation of the coding: 

Lines 2-3 define local variables for the routine 
Line 4 checks to see if battle sequence has begun 
Lines 5-11 determines unit and schedules BREAK event in 
pre-battle period 

Line 12 determines composition of unit 

Line 13 checks to see if vehicle was previously combat 
damaged 

Lines 14-16 decrease unit fighting strength and identifies 
vehicle as needing recovery 

Lines 17-26 repeats 13-16 for split brigade composition 
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4. The BATTLE Event 



The BATTLE event performs several functions in the 
simulation. It contains the Lanchester formulation that is 
used to compute the casualties and the time of battle, it 
performs the recovery missions and determines the attrition 
of the recovery vehicles, it keeps track of the location of 
the various maintenance units with respect to the forward 
line of troops and triggers the units to move if necessary, 
and it calls the detection and allocation routine which 
generates enemy attacks on the forward detachments. 
Expanation of the coding: 

Lines 2-11 define local variables for the routine 
Lines 12-13 increment counters 

Line 14 increase echelon spacing for divisional spacing 
Line 15 prints battle results heading 
Line 16 calls routine DET. ALLOC 

Lines 17-34 sets parameters depending on the composition of 
the unit fighting 

Line 35 computes exchange ratio for this battle 
Lines 36-42 computes the time of battle 
Line 43 print WHO. FIGHT and battle time 

Line 44 computes interdicted rate of advance of next red 
echelon 

Line 45 computes time for rollup and restart 
Lines 46-47 computes time available for recovery 
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Line 48 computes blue casualties including system failures 

Line 49 keeps statistics on blue casualties 

Lines 50-51 compute number of vehicles needing recovery 

Line 52 checks number of recovery vehicles available 

Line 53 computes time needed to recover all vehicles 

Lines 54-56 computes the number of vehicles to be recovered 

Lines 57-59 calculates exposure times for recovery missions 

Line 60 initializes job counter 

Line 61 return to regular echelon spacing 

Lines 62-86 attempt recoveries for vehicles and determine 
success or failure of missions 

Lines 87-88 print number of recovery vehicles lost 

Lines 89-98 schedule BREAK events for system failed 

vehicles that are still mobile 

Lines 99-108 schedule BREAK events for vehicles that are 
combat damaged but are still mobile 

Lines 109-119 schedule BREAK events for vehicles that are 
system failed and need recovery 

Lines 120-127 schedule BREAK events for vehicles that are 
combat damaged and need recovery 

Lines 128-129 update number of blue systems alive 

Lines 130-132 update distance of maintenance units to the 

FLOT 



Lines 133-135 collect recovery and casualty statistics 
Lines 136-138 update number of red systems in battle 
Line 139 return to regular echelon spacing 



86 



Line 140 check the composition of the force 

Lines 141-152 update distances to FLOT, check to see if 
distance is too small and schedule a JUMP for the unit if 
necessary 

Lines 153-155 update variables for team 1 

Lines 156-168 do the same as lines 141-155 for team 2 

Lines 169-175 change distance attributes for all 

maintenance units 

Line 176 print battle results 

Line 177 check to see if breakpoint is reached 

Line 178 check to see if in split brigade configuration 

Lines 179-182 change to combined brigade configuration 

Lines 183-184 schedule next battle 

Lines 185-187 if in combined brigade configuration and 

breakpoint has been met, end the simulation and print 
message 

Lines 188-192 if in split bigade configuration and not at 
breakpoint, change teams and schedule the next battle 
Lines 193-194 print Job List heading 

5. The BREAK Event 

This routine serves the purpose of creating a job 
entity for each successful recovery mission. Once created, 
the attributes of the job entity are also determined. These 
attributes include the workorder number, the vehicle type, 

and the firepower and mobility damage percentages. The 
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routine constrains the amount of damage that can be 
sustained by the vehicle depending on the vehicle type and 
whether or not the vehicle was damaged in combat. A system 
failed vehicle will be either mobility or firepower damaged 
but not both, and a maximum of 0.2 damage percentage is 
allowed. Also if the vehicle type is armored personnel 
carrier/ its firepower damage percentage can attain a 
maximum value of 0.2 since the vehicle is still valuable 
even if it cannot shoot. The component damage is determined 
by calling the ASSESS. DAM routine. Finally, the job is 
scheduled for arrival at the maintenance detachment that 
supports the owning battalion. 

Explanation of the coding: 

Lines 2-6 define local variables for the routine 

Line 7 draw random comparitor 

Line 8 increment workorder number counter 

Lines 9-14 create a job entity and assign workorder number 
and assign vehicle type using the random comparitor 
Line 15 if the job is a system failure, branch to ON 
Lines 16-17 if the job is a combat damaged vehicle, let the 
maximum possible value of its MOB. DAM attribute be 1.0 
Line 18 if the job is combat damaged but still mobile, let 
the maximum possible value of its MOB. DAM attribute be 0.2 
Lines 19-22 randomly draw FP.DAM and MOB. DAM for jobs with 
vehicle type of TANK and branch to DOWN 

Lines 23-25 randomly draw FP.DAM and MOB. DAM for jobs with 
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vehicle type of APC and branch to DOWN 

Line 26 draw random comparltor to determine if a system 
failed vehicle is either mobility or firepower damaged 
Lines 27-29 randomly determine either FP.DAM or MOB. DAM for 
system failed vehicle 

Lines 30-32 call ASSESS. DAM routine to determine component 
damage 

Lines 33-38 print line of output for Job List for TANK jobs 
Lines 39-44 print line of output for Job List for APC jobs 
Line 45-51 schedule arrival event at the appropriate 
detachment 

6. The. ARBI VAL 5yent 

This event represents the arrival of a job at a 
maintenance unit/ either a forward detachment or the 

maintenance company. If the type of repair needed by the 
vehicle cannot be performed at the unit, the job is 
evacuated. Otherwise it is prepared for initial inspection. 
Explanation of the coding: 

Lines 2-3 definition of local variables for the routine 

Line 4 set JOB and MAINT.UNIT entity pointers 

Line 5 increment number of vehicles at the unit 

Lines 6-7 check to see if unit has personnel to do the type 

of work necessary 

Lines 8-11 schedule a MOVE. REAR to evacuate job if unit is 
not capable of performing work and put the job in WT. QUEUE 
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Lines 12 -13 if unit has capability to do repair, check to 
see if all the inspectors are busy; if so, put the job in 
Wl .QUEUE 

Line 14 if an inspector is idle, reduce the number of idle 
i nspectors 

Lines 15-23 schedule a DIAGNOSIS event at the appropriate 
randomly drawn time depending on the unit 

7. The REPAIR Event 

The REPAIR event is the routine that effects the 
actual repair of the job. Each REPAIR event has a job and a 
crew specified in the argument list, and the type of damage 
repaired is dependent on the MISSION attribute of the crew. 
As such, vehicles with both mobility and firepower damage 
require two REPAIR events. 

Explanation of the coding: 

Lines 2-6 definition of local variables in the routine 
Lines 7-9 set JOB and MAINT.UNIT entity pointers 
Lines 10-13 check to see if parts are to be provided by 
cannibalization, if so call SUBSTITUTION routine and 
exchange parts in source vehicles 

Lines 14-15 when crew is automotive, set MOB. DAM attribute 
to 0.0 and remove the job from the AUTOMOTIVE set 
Lines 16-17 when crew is armament, set FP.DAM to 0.0 and 
remove the job from the ARMAMENT set 

Lines 18-28 if job is totally repaired, file it in 
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CLOSED. JOB set/ calculate its DOWN. TIME attribute, increment 
the number returned to battle, remove job from any other 
sets it is in, and reduce the number of vehicles at the unit 
Lines 29-31 increase number of systems alive in the 

appropriate team 

Lines 32-34 if job is not totally repaired file it in 
WS. QUEUE 

Lines 35-36 if WS. QUEUE is empty, branch to CONTROL 

Lines 37-42 search WS. QUEUE for a job the crew can do, if 

one i s found branch to TAKE 

Lines 43-45 check to see if WP. QUEUE and WT. QUEUE are 

empty, if so set OCCUPATION attribute of crew to idle and 
return 

Lines 46-54 check the WP. QUEUE for a job for which parts 
can be obtained through cannibalization 

Lines 55-67 if one is found, call SUBSTITUTE routine to 

exchange the parts and schedule another REPAIR event 
Lines 63-69 if none is found, and job is at the maintenance 
company, set the OCCUPATION attribute of the crew to idle 
and return 

Lines 70-98 same as lines 37-69 for jobs in WT. QUEUE 
Lines 99-115 schedule another REPAIR event for job found in 
WS. QUEUE 

8. The PARTS. COME Event 

This event represents the arrival of the parts 
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needed to repair a particular job. An attempt is then made 
to find an idle crew to perform repairs. If one is found, a 
REPAIR event is scheduled. Sometimes, parts are obtained 
for a job through cannibalization before the parts arrive 
through the supply system. In this case, the PARTS. COME is 
i gnored . 

Explanation of coding: 

Lines 2-4 definition of local variables in the routine 
Line 5 set JOB and MAINT.UNIT entity pointers 
Lines 6-7 check to see if parts have been obtained through 
cannibalization, if they have return 

Lines 8-21 find a crew to repair mobility damage, if one is 
found schedule a REPAIR 

Lines 22-23 if no idle crews available, file the job in 
WS. QUEUE 

Lines 24-38 perform lines 8-23 for firepower damage 
9. The DIAGNOSIS Event 

This event represents the initial inspection of the 
vehicle at the maintenance unit. As such, parts 
availability is checked both through the supply system and 
through cannibalization, and a crew is located to do the 
work. If parts and a crew are found, a REPAIR event is 
scheduled. Otherwise the job is placed in the appropriate 
set . 

Explanation of the coding: 
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Lines 2-7 definition of local variables in the routine 
Lines 8-9 set entity pointers 

Lines 10-11 set the number of subsystems (FP) depending on 
the vehicle type 

Line 12 increment number of idle inspectors 
Lines 13-15 set the probability of having parts and 
percentage of damage to be fixed depending on whether the 
job is at the company or at a detachment 

Line 16 check to see if vehicle damage exceeds amount of 
damage that can be fixed, if so branch to EVAC. MAYBE 
Lines 17-18 draw a random comparitor and compare to 
probability of having parts 

Lines 19-22 If parts not available call CANNIBAL routine to 
try to find them by cannibalization, if not available branch 
to EVAC. MAYBE 

Lines 23-36 having parts, find crew to repair mobility 
damage and schedule a REPAIR event; if none found file in 
WS. QUEUE 

Lines 37-50 having parts, find crew to repair firepower 
damage and schedule a REPAIR event; if none found file in 

WS. QUEUE 

Lines 51-58 if no parts are found and job is at a 
detachment, schedule a MOVE. REAR event to evacuate, file in 

WT. QUEUE, and branch to NEXT 

Lines 59-63 if vehicle is too badly damaged, evacuate it 
and schedule a MOVE. REAR event, file in V/T. QUEUE 
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Lines 64-68 if no parts available at company, schedule a 
PARTS. COME and file in WP. QUEUE 

Lines 69-82 schedule another DIAGNOSIS event for idle 
inspector if possible 

10. The MOVE. REAR Event 

The purpose of the MOVE. REAR event is to evacuate 
jobs to higher echelons of maintenance. Sometimes, if a job 
becomes involved in a cannibalization, it will have been 
removed from the WT. QUEUE. In this case, the MOVE. REAR is 
ignored. If a vehicle is evacuated from the maintenance 
company, it is filed in the EVAC.REAR set and is no longer 
considered in the simulation. 

Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 
Line 4 set entity pointers 

Line 5 if job is not in the WT. QUEUE, ignore the MOVE. REAR 
Line 6 reduce number of vehicles at unit 

Line 8-15 schedule an ARRIVAL at the maintenance company 
for jobs at a detachment 

Lines 16-25 file job in EVAC.JOB and remove it from all 
other sets 

11. The DAYLIGHT Event 

The DAYLIGHT event represents the reduced 
capabilities of recovery vehicleles, and the reduced convoy 
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speeds of moving units during periods of reduced visibility. 
The routine changes the values of several of the variables 
back and forth between their day and night values. 

Explanation of the coding: 

Line 2 return if battle sequence has not begun 
Lines 3-12 change from day values to night values 
Lines 13-14 schedule daybreak in 9 hours and return 
Lines 15-23 change from night values to day values 
Lines 24-25 schedule nightfall in 15 hours and return 

12. The JUMP Event 

This event portrays the movement of a forward 
detachment to a new position/ and the suspension of 
maintenance activities during the move. Also, vehicles that 
are not mobile do not accompany the unit on the move, and are 
either evacuated or destroyed. The time for the unit to 
move and setup the new maintenance site is calculated and a 
GET. THERE event is scheduled for the end of that time 
period . 

Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 

Line 4 set MAINT.UNIT entity pointer 

Line 5 compute time it takes the unit to move 

Line 6 schedule a GET. THERE event 

Lines 7-13 remove and destroy non-mobile jobs in WS. QUEUE 
Lines 14-19 remove and destroy non-mobile jobs in Wl .QUEUE 
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Lines 20-32 remove and destroy all jobs in WT. QUEUE that 
will not be evacuated by the time the unit moves 
Lines 33-47 remove and destroy all non-mobile jobs in 
ARMAMENT set and reschedule REPAIR events for jobs that are 
mobile for a time after arrival at the new site 
Lines 48-57 remove and destroy jobs in AUTOMOTIVE set 
Line 58 set T.JUMP attribute of maintenance unit to delay 
job arrivals at the unit 

13. The GET. THERE Event 

This event marks the resumption of maintenance 
activities by the maintenance unit at the conclusion of a 
move. A check is made to make sure that the source vehicles 
have accompanied the unit on the move/ for any job involved 
in a cannibalization. The crews are then matched with jobs 
to be done and the maintenance mission is resumed. 
Explanation of the coding: 

Line 2 definition of local variables in the routine 
Line 3 set MAINT.UNIT entity pointer 
Line 4 set T.JUMP attribute to 0.0 

Lines 5-11 check to see if cann i bal i zat ions are still 
poss i bl e 

Lines 12-23 schedule a MOVE. REAR event for each job that 
can no longer be cannibalized 

Lines 24-37 match jobs with automotive crews and schedule 
REPAIR events 
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Lines 33-51 match jobs with armament crews and schedule 
REPAI R events 

14. The STOP. SIMULATION Event 

As its name implies/ the purpose of this event is 
to end the simulation and output the results. The routine 
Is called at the end of each replication and prints out 
summary statistics/ the backlog of jobs at every maintenance 
unit/ and lists of all the jobs that were successfully 
completed and evacuated out of the brigade area. The 
START. OVER routine is also called to reset the variable 
values for the next replication. 

Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 
Lines 4-6 compute the number of repairmen alive at the end 
of the simulation 

Lines 7-10 compute summary statistics 
Lines 11-19 print summary statistics 

Lines 20-72 print the backlog for each maintenance unit 
Lines 73-78 print list of successfully completed jobs 
Lines 79-83 print list of jobs evacuated outside the 
brigade area 

Line 84 call START. OVER routine 

15. The START. OVER Routine 

This routine is called from the STOP. S I MULATI ON 
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event to initialize the program for a new replication. All 
counters are set back to zero, the totals of statistics kept 
by the program are reset, all scheduled events are 
cancelled, all jobs in the system are filed in the KILL. JOB 
set and then destroyed, the CAN.REC and DAM.REC arrays are 
set to zero, and the maintenance units are destroyed. 

Explanation of the coding: 

Lines 2-6 zero variables 

Lines 7-9 reset system statistic keeping routines 
Lines 10-32 cancel and destroy all scheduled events 
Lines 33-78 remove all jobs from the sets they are in and 
file them in the KILL. JOB set 

Lines 79-80 destroy the jobs in the KILL. JOB set 

Line 81 zero the CAN.REC array 

Line 82 zero the DAM.REC array 

Lines 83-85 destroy the MAINT.UNIT entities 

16. The ASSESS. DAM Routine 

The ASSESS. DAM routine is called by the BREAK event 
to stochastically determine the component damage of a job as 
a function of the previously computed FP.DAM and MOB. DAM 
values. The FP.DAM and MOB. DAM values correspond to the 
proportion of major subsystems of each type that have been 
damaged. This routine randomly picks the subsystems that 
are damaged. A random number from between 0.0 to 1.0 is 
drawn and is assigned to the chosen subsystem. This number 
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represents the proportion of damaged parts in the subsystem. 
The values are stored in the DAM.REC array and are indexed 
by the workorder number of the job. The component damage 
values are used in the CANNIBAL routine. 

Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 
Line 4 set JOB entity pointer 

Lines 5-6 set number of subsystems depending on vehicle 
type 

Line 7 set local variable equal to workorder number of job 
Lines 8-9 compute number of damaged mobility subsystems if 
any 

Line 10 draw a number corresponding to one of the 
subsystems 

Lines 11-12 if the particular subsystem has not been chosen 
before, draw a random number and assign the damage 
percentage 

Line 13 increment counter and repeat sequence until values 

are obtained for all damaged subsystems 

Lines 14-21 repeat sequence for firepower subsystems 

17. The CANNIBAL Routine 

This routine is called in order to determine if 
parts can be obtained for a job through cannibalization. 
This is done by comparing the component damage values of the 
job with those of potential source vehicles. If a source of 
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parts is found, the entity number of the source job is 
recorded in the CAN.REC array. The routine returns to the 
calling event with a number corresponding to the number of 
source vehicles if enough were found, or zero if the 
cannibalization attempt was unsuccessful. 

Explanation of the coding: 

Lines 2-9 definition of local variables In the routine 
Line 10 set JOB and MAI NT . UN I T entity pointers 
Line 11 set workorder number of job in temporary location 
Lines 12-13 set number of subsystems depending on vehicle 
type of job 

Line 14 reserve core for temporary storage of entity 
numbers for source vehicles 

Lines 15-17 count number of damaged subsystems of job 
Lines 18-19 check each job in WT. QUEUE as a possible source 
veh i cl e 

Line 20 loop through all subsystems 

Line 21 branch to LOOP if no parts needed for subsystem 
Line 22 branch to LOOP if parts already found for subsytem 
Line 23 if component damage of job is greater than the 
serviceable percentage of parts in the potential source 
vehicle, branch to LOOP 
Line 24 draw a random comparitor 

Line 25 If random comparitor is larger than proportion of 
serviceable parts, branch to LOOP 

Line 26 parts found, record entity number of source vehicle 
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Line 27 add 1 to number of source vehicles found, 

parts as found by adding 1 to element of DAM.REC array 

pertaining to source vehicle 

Line 28 end of search loop for one potential source vehicle 

Line 29 check to see if number of source vehicles found 

equals number needed, if so branch to AHEAD 

Line 30 end of search loop for vehicles in the WT. QUEUE 

Lines 31-43 do search procedure for vehicles in WP. QUEUE 

Lines 44-45 after all searches are complete, if not enough 

source vehicles found, set CAN to zero and return 

Lines 46-50 prepare to cannibalize by removing job from the 

set it is tn and placing it in VIS. QUEUE 

Lines 51-55 cancel evacuations for source vehicles 

Lines 56-67 cancel PARTS. COME events for source vehicles 

and reschedule them either at their original time or the 

time the new parts will arrive, whichever is later 

Lines 68-73 find an empty row of the CAN.REC array and set 

IN. CAN attribute of the job to the row index 

Line 74 store entity numbers of source vehicles in the row 

of the CAN.REC array 

Line 75 release core for temporary storage 

18. The SUBSTITUTE Routine 

This routine is called by the REPAIR event to 
actually substitute the parts that were found in the 
CANNIBAL routine, in order to perform the work. The routine 
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checks the MISSION attribute of the crew performing the 
repair and removes the parts only from the corresponding 
subsystems. Evacuations are rescheduled for those jobs that 
need them, and the row of the CAN.REC array Is zeroed out. 
Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 
Line 4 set entity pointers 

Line 5 set temporary variable to workorder number of job 
Lines 6-7 determine number of subsystems depending on 
vehicle type 

Lines 8-9 determine subsystems for which substitutions are 

to be made depending on MISSION attribute of crew 

Line 10 loop through appropriate subsystems 

Line 12 add the proportion of damaged parts for the job to 

those of the source vehicle 

Line 13-14 reduce number of jobs to which source vehicle 
will supply parts and check to see if the number is zero, if 
not branch to ZERO 

Lines 15-18 if it is zero, and source vehicle is in 
WT. QUEUE reschedule an evacuation 

Line 19-20 zero out the element of the CAN.REC array 
Line 21 end of loop 

19. The PET. ALLOC Routine 

In each BATTLE event, the DET. ALLOC routine is 
called to determine which, if any, of the forward 
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detachments are to be attacked by the enemy. A probability 
of detection is computed for each forward detachment as a 
function of its distance from the fighting and the number of 
vehicles present at the unit. The ATTACK routine is then 
called for each detected unit. 

Explanation of the coding: 

Lines 2-4 definition of local variables for the routine 
Line 5 loop through each forward detachment 
Lines 6-7 compute probability of detection for the unit 
Line 3 calculate number of personnel present at the unit 
Lines 9-10 if unit already destroyed print message and 
branch to LOOP 

Line 11 draw random comparitor 

Lines 12-16 if comparitor is less than the probability of 
detection print message, call ATTACK routine, calculate 
number of personnel killed in attack, print message 
Lines 17-19 if comparitor is larger than probability, print 
message that unit wa s not detected, repeat for all units 
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The ATTACK Routine 

The ATTACK routine is called by the DET. ALLOC 
each time a forward detachment is detected by the 
duration of the attack. The repairmen left alive at 
of the attack are then reorganized into crews, and 
resumed . 

Explanation of coding: 
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Lines 2-5 definition of local variables in the routine 
Line 6 set MAINT.UNIT entity pointer 

Line 7 evaluate attrition of inspector and replace him if 
he is kill ed 

Lines 9-15 evaluate attrition for each individual in the 
uni t 

Lines 16-19 calculate number of crews of people left alive 
Lines 20-21 determine if there is an odd repairman of 
ei ther type 

Line 22 loop through all crews in maintenance unit that 
were busy prior to attack 

Line 23-25 update number of personnel alive in automotive 
crews until supply of live repairmen is exhausted 
Lines 26-32 when supply of live repairmen is exhausted, set 
the OCCUPATION attribute of the remaining crews to DEAD and 
cancel the REPAIR events for jobs they are working on 
Lines 33-41 do sequence of lines 23-32 for armament crews 
Lines 42-50 if any live repairmen are left assign them to 
idle crews 

Lines 50-58 if there is an odd number of either type of 
repairmen assign him to a crew 

Lines 59-64 cancel all REPAIR events and reschedule them 
after the attack is over, set flag attribute (L00P.CH) to 1 
Lines 65-66 set flag attribute back to 0 

Lines 67-72 cancel all DIAGNOSIS events and reschedule them 
after the attack is over, set flag attribute to 1 
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Lines 73-74 set flag attribute back to 0 
Lines 75-76 set entity pointers 

Lines 77-116 if no more automotive repairmen at unit, 
evacuate all jobs at the unit with mobility damage, cancel 
all repairs of automotive jobs, cancel PARTS. COME events for 
these jobs, cancel DIAGNOSIS events for these jobs 
Lines 117-156 do same sequence as lines 77-116 for armament 
jobs if there are no more armament repairmen 

, 21. The COMP. TIMES Routine 

The purpose of this routine is to convert the time 
related values that it reads as data into beta probability 
distribution parameters that can be used with the SIMSCRIPT 
beta random number generator to generate random times to 
completion for the various maintenance functions. The beta 
parameters are stored in the A array; and the time values in 
the form of the minimum, expected, and maximum times for 
completion of the activity, are stored in the T. ACTION 
array. 

Explanation of the coding: 

Lines 2-3 definition of local variables in the routine 

Line 4 print heading 

Lines 5-10 compute beta parameters 

Lines 11-12 print values 
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22. The I NIT.PRI NT Routine 



This routine is used to print the data values 
supplied by the user as inputs. They include parameters 
that govern the maintenance process / as well as the battle 
and recovery operations. Since the routine is composed of 
print statements and format specification statements, no 
explanation of the coding is given. 

23. The GAMMA. F Routine 

In generating beta distributed random numbers, 
SIMSCRIPT uses its internal gamma random number generating 
routine. Some of the parameters that are generated for use 
in the gamma routine are such that an error is produced. 
Consequently this routine, which is more robust, was 
suggested by the designers of SIMSCRCRIPT. This routine 
overrides the internal GAMMA. F routine. No explanation of 
the coding is given. 

D. VARIABLE DEFINITIONS 
1. Input Variables 

The values of the following list of variables are 
supplied by the user. SIMSCRIPT reads data in free format, 
and it is only important that the values be input in the 
correct order, and that the data be consistant with their 
definition in the program in terms of integer or real mode. 
These variables are listed in the order that they are input. 
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REP. COUNT - integer, number of replications desired 
SEED - integer, number that generates array of random 
number seeds 

P.TANK - real, proportion of tanks in the blue force 

W. FIGHT - integer, specifies the initial force 
configuration and has the following possible values: 

1 - split brigade configuration with battalions 1 
and 2 engaged first 

2 - split brigade configuration with battalions 3 
and 4 engaged first 

3 - combined brigade configuration 

X. RAT - real, initial exchange ratio (red/blue) 

BZERO - real, initial blue force level 

RZERO - real, initial red force level 

BP - real, red breakpoint; proportion of red survivors 
that cause the red force to assume defensive posture 
R2.ECH - real, red second echelon rate of advance 
(km/ hr ) 

CCSL - real, cross country speed of recovery vehicle 
when loaded (km/hr) 

CCSU - real, cross country speed of recovery vehicle 
when unloaded (km/hr) 

MCPD.ZERO - real, intial distance from the FLOT to the 
forward detachments (km) 

S.ECH - real, distance between red echelons (km) 

SELF. LIKE - real, proportion of damaged vehicles that 
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are self or like vehicle recovered 

UNREC - real, proportion of damaged vehicles that are 
unrecoverab 1 e 

R.VEHS - real, total number of recovery vehicles in the 
br i gade 

TH - real, average hookup time for recovery missions 
(mi ns ) 

LOS. PR - real, probability of line of sight 

TGT.PRI - real, priority of recovery vehicles as red 

targets 

PR. INC. ID - real, probability that a recovery vehicle 
will be incorrectly identified on the battlefield 
LEAD. TIME - real, amount of time in simulation before 
first BATTLE event (hours) 

MTTF - real, mean time to failure of blue vehicles 
(operating hours) 

USE. PER - real, proportion of time that the vehicles 
are operated 

D - real, disorientation factor for recovery vehicles; 
number between 0.0 and 1.0 

COD - real, initial distance from the maintenance 
company to the FLOT (km) 

ALFA - real, shaping factor for probability of 
detection formula 

CON. SPEED - real, convoy speed for movement of 

maintenance units (km/hr) 
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SETUP. TIME - real , time needed by maintenance unit to 
resume maintenance activities once new position is 
reached (minutes) 

B.DIST - real, distance from the FLOT to detachment 
that causes detachment to move to a different position 
(km) 

PK.PERS - real, probability that an Individual soldier 
will become a casualty when forward detachment is 
attacked 

NMC. FOLKS - real, initial number of automotive 

repairmen at the maintenance company 

NFC. FOLKS - real, initial number of armament repairmen 
at the maintenance company 

V.CO.INIT - real, number of vehicles owned by 

maintenance company 

N.FWD.DET - integer, number of forward detachments 
NMF. FOLKS - real, initial number of automotive 

repairmen at each forward detachment 

NFF. FOLKS - real, initial number of armament repairmen 
at each forward detachment 

V.FS.INIT - real, number of vehicles owned by the 
forward detachments 

N.3NS - integer, number of supported battalions 

P.MOB - real, proportion of system failures that are 

mob ? 1 i ty related 

P.FWD.FIX - real, percent of damage that can be 
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repaired at a forward detachment 

PR . HAVE . PARTS . FWD - real, probability that parts are 
available at a forward detachment 

PR . REAR . HAVE. PARTS - real, probability that parts are 
available at the maintenance company 

P. CO. FIX - real, percent of damage that can be repaired 
at the maintenance company 

T. ACTION - 2 dimensional (8 by 3) real array, 8 sets of 
3 time values for the following activities: 

1 - inspection time at forward detachment 

2 - inspection time at maintenance company 

3 - repair time for automotive jobs 

4 - repair time for armament jobs 

5 - waiting time for repair parts delivery 

6 - movement time from forward detachment to 
company 

7 - waiting time for evacuation from forward 
detachment to company 

8 - waiting time for evacuation from company to 
division rear 

2. Global Variables 

The following variables are globally defined in the 
preamble, and therefore have the same value throughout the 
program . 

A - real, 2 dimensional array, values of the beta 
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parameters 

ARM. REP. TIME - real, temporary location of the repair 
times for armament jobs, TALLY statement computes mean 
of th i s var i abl e 

ATT. CONST - real, relates exchange ratio to number of 
blue systems alive 

B. ALIVE - real, number of blue systems alive 

BAT.NUM - integer, counter for number of battle 

sequences 

Bl. ALIVE - real, number of blue systems alive in team 1 
B2. ALIVE - real, number of blue systems alive in team 2 
CAN.REC - integer, 2 dimensional array, stores the job 
entity numbers of source vehicles for cannibalization 
CAS. COUNT - real, number of blue casualties in a 
battle, TALLY statement computes sum of the values of 
thi s var 1 abl e 

COUNT - integer, battle sequence counter used to 
initiate divisional echelon spacing 

DAM.REC - real, 2 dimensional array, stores component 
damage percentages for all jobs 

DOWN. TIME - real, repair cycle time for individual 
jobs, a TALLY statement computes the mean of this 
var i abl e 

EX. RAT - real, exchange ratio (red/blue) 

FLOT.MOVE - real, rate of movement of the FLOT during 
battle (km/hr) 
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LIGHT. STAT - real, records whether day or night 
conditions exist/ has the following possible values 
DAY - defined to mean 1.0 
NIGHT - defined to mean 0.5 
LS - real/ probability of line of sight 
M. REP. TIME - real/ temporary location of the repair 
times for automotive jobs; TALLY statement computes the 
mean of this variable 

MCPD - real, distance from forward detachment to FLOT 
(km) 

MCPD1 - distance from detachments in team 1 to FLOT 

(km) 

MCPD2 - distance from detachments in team 2 to FLOT 

( km) 

NUM . EVAC . REAR - integer, number of vehicles evacuated 
out of the brigade area 

NUM. RETURN. BATTLE - integer, number of vehicles 
repaired and returned to the fighting force 
QUIT - integer, number of system failures since last 
BATTLE event 

QUIT1 - integer, number of system failures in team 1 

since last BATTLE event 

QUIT2 - integer, number of system failures in team 2 

since last BATTLE event 

R. CAS. COUNT - real, number of red casualties in a 
battle, TALLY statement computes the sum of the values 
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of this var i ab 1 e 

REC.NUM - real, number of recovery vehicles alive 
REC1.NUM - real, number of recovery vehicles alive in 
team 1 

REC2.NUM - real, number of recovery vehicles alive in 
team 2 

S.CAS - real sum of CAS. COUNT from TALLY statement 

S. R.CAS - real, sum of R. CAS. COUNT from TALLY statement 
SPACE. ECH - real, red echelon spacing (km) 

SUM. NEED. REC - real, sum of number of vehicles that 
need recovery in each battle; computed by TALLY 
statement from sum of TOT. NEED. REC 
SUM. REC - real, tallied sum of TOT. REC variable 

T. PARTS. COME - real, time a job waits for parts: TALLY 
statement computes mean of this variable 

Tl .TIME - real, time required to perform initial 

inspection; TALLY statement computes the mean of this 
var i ab 1 e 

TOT. FOLKS - real, total number of maintenance personnel 
in the brigade area at the start of the simulation 
TOT. NEED. REC - integer, number of vehicles needing 
recovery in a battle; TALLY statement computes the sum 
of the values of this variable 

TOT. REC - integer, number of vehicles recovered in a 
battle; TALLY statement computes the sum of this 
var i abl e 
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TRY - integer, replication counter 

WHO. FIGHT - integer, same as W. FIGHT, specifies which 
team is engaged in battle 

WORK. ORDER - integer, running counter of jobs entering 
maintenance system 
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INPUT TIME PARAMETERS 



APPENDIX D COMPUTER OUTPUT 
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NUMBER RECOVERY VEHICLES KILLE3 THIS BATTLE: 2 

A RE. VEHS. LEFT: 12 B.AL1VE: 109 R. ALIVE: 210 
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WHO. FIGHT IS 3 TIME OF BATTLE IS .101 HOURS 
NUMBER RECOVERY VEH I CL ES KILLED THIS BATTLE I 3 
I RE. VEHS. LEFT* 15 B.ALIVEl 156 ft. ALIVE* 220 
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WHO.FIGHT IS 3 T! ME OF BATTLE IS .079 HOURS 
„ NUMBER RECOVERY VEHICLES KILLED THIS BATTLE* 1 
« RE. VEHS. LEFT* 12 B. ALIVE* 139 A. ALIVE* 220 
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160 5. 79 2 4 1 .06 .41 .98 0. 0. 0. 0. .68 .65 0 

RESULTS OF BATTLE 13 
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NUMBER RECOVERY VEHICLES KILLED THIS BATTLE: l 

# RE. VEHS. LEFT: 10 B. ALIVE: 92 R. ALIVE: 220 
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APPENDIX E PROGRAM LISTING 



PM AMBLE 

NORM ALL T MODE IS INTEGER 
THE SYSTEM GUNS A SUP. BN 

THE SYSTEM CAN OHN A CLOSED. JOB ANO AN EYAC.JOB AND A KILL. JOB 
EVENT NOTICES INCLUOE FAILURE. BATTLE. OAYLI GHT ANO STOP. SIMULATION 
EVERY BREAK HAS A SPEC. DAM AND A BN 
EVERT PARTS. COME HAS A SPEC. PART AND A LEV. PART 
EVERY ARRIVAL HAS A SPEC.ARR AND A LEY. ARR 
EVERY DIAGNOSIS HAS A SPEC.DIAG AND A LEV.OIAG 
EVERY MOVE. REAR HAS A SPEC. JOB ANO A LEVEL 
EVERT REPAIR HAS AN A. CREW. A SPEC. REP AND A LEV. REP 
EVERY JUMP HAS A LEV. JUMP 
EVERY GET. THERE HAS A LEV. GET 
TEMPORARY ENTITIES 

EVERY HA1NT.UNIT OWNS A SHOP. A US. QUEUE. A UP. QUEUE. A WI. QUEUE. A WT. QUEUE. 
AN ARMAMENT. AN AUTOMOTIVE. MAS AN INSPECTOR. A NAME. A VEH. COUNT. A D.FLOT 
ANO A NH. FOLKS. A NF. FOLKS. A T.JUMP AND BELONGS TO A SUP. BN 
EVERY JOB HAS A VEH. TYPE. A HO.NUM. A UNIT. A TIME. DOWN. A MOB. OAM. A LOOP.CM. 
A T. ARM. REP. A T. AUTO. REP. A REP. UNIT. AN IN. CAN. A TOT. OAM. A CAN. MUM, 

A FP.OAM. HAY BELONG TO A US. QUEUE. A UP. QUEUE. A WI. QUEUE. A CLCSED.JOB. 

AM EVAC.J68. AN ARMAMENT. AN AUTOMOTIVE. A WT. QUEUE. A KILL. JOB 
EVERT CREW HAS A MISSION. AN OCCUPATION. AN N. FOLKS AND BELONGS TO A SHOP 
QEFIME Ml. QUEUE AS A SET RANKED BY LOW VEH. TYPE AND THEN 
BY LOU TIME. DOWN 

QEFIME MS. QUEUE AS A SET RANKED BY LOW VEH. TYPE ANO THEN 
BY LOU TIME. DOWN 

DEFINE T. ARM. REP AND T. AUTO. REP AS REAL VARIABLES 
DEFINE T. PART. COMES AS A REAL VARIABLE 

DEFINE TIME. DOWN. MOB. DAM. FP.OAM AS REAL VARIABLES 
DEFINE X.RAT. R.VEHS. NMC. FOLKS. NFC. FOLKS. NFF. FOLKS. NMf. FOLKS AS REAL 
VARIABLES 

DEFINE M. FIGHT. REP. COUNT. TRT AS VARIABLES 
DEFINE CBMP. TIMES AS A ROUTINE 

DEFINE CANNIBAL AS A ROUTINE GIVEN 2 ARGUMENT YIELDING 1 VALUE 

DEFINE SUBSTITUTE AS A ROUTINE GIVEN 3 ARGUMENTS 

DEFINE ASSESS. QAM AS A ROUTINE GIVEN 1 ARGUMENT 

QEFIME QET. ALLOC AS A ROUTINE 

QEFIME T.JUMP AND B.DIST AS REAL VARIABLES 

DEFINE CBN. SPEED AND SETUP. TIME AS REAL VARIABLES 

DEFINE VEH. COUNT. Y.CO.INIT. Y.FS.INIT. D.FLOT. ANO ALFA AS REAL VARIABLES 
QEFIME CAN. FIX AS A VARIABLE 

DEFINE A ANO T. ACTION AS 2-01 MENS1QNAL REAL ARRAYS 
DEFINE DIES. P.TANK. BATTLE. TIME. BUST. P.MOB. P.FIX.FWD. 

PR. HAVE. PART S.FWO. PR. REAR. HAVE. PARTS. P. CO. FIX AS REAL 
VARIABLES 

DEFINE WM. REP. TIME ANO M. REP. TIME AS REAL VARIABLES 
TALLY MEAN. ARM. REP AS THE MEAN OF ARM. REP. TIME 
TALLY KEAN. AUTO. REP AS THE MEAN OF M. REP. TIME 
DEFINE T I. TIME AS A REAL VARIABLE 
TALLY KEAN. II. TIME AS THE MEAN OF TI . TIME 
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DEFINE OOWN. TIME AS A BEAL VARIABLE 

DEFINE TOT. FOLKS AND CAS. COUNT AND R.CAS.CNT AS REAL VARIABLES 

DEFINE BAT.NUM AS A VARIABLE 

TALLY S.CAS AS THE SUM OF CAS. COUNT 

TALLY S.R.CAS AS THE SUM OF R.CAS.CNT 

TALLY MEAN. OOWN. TIME AS THE MEAN OF DOWN. TIME 

TALLY AVG. WP. TIME AS THE MEAN OF T. PART. COMES 

OEFINE CO.MAINT TO MEAN 0 

OEFINE DET1.MAINT TO MEAN 1 

OEFINE 0ET2.MAINT TO MEAN 2 

OEFINE 0ET3.MA1NT TO MEAN 3 

OEFINE 0ET4.MA1NT TO MEAN 4 

OEFINE IDLE TO MEAN 0 

OEFINE BUSY TO MEAN 1 

DEFINE OEAD TO MEAN 2 

OEFINE TANK TO MEAN 1 

OEFINE APC TO MEAN 2 

OEFINE AUTO TO MEAN 1 

DEFINE ARM TO MEAN 2 

OEFINE SHOT TO MEAN 1 

OEFINE SYS. FAIL TO MEAN 0 

OEFINE NUM. EVAC. REAR AND NUM. RET . BATTLE AS VARIABLES 
OEFINE N. FOLKS, NM. FOLKS, NF. FOLKS AS REAL VARIABLES 
OEFINE PK.PERS ANO PK. TRUCK AS REAL VARIABLES 
OEFINE S.ECH AS A REAL VARIABLE 
OEFINE COUNT AS A VARIABLE 

OEFINE OAM. REC AS A REAL 2-DIMENSIONAL ARRAY 
OEFINE CAN. REC AS A 2-0IMENSI0NAL ARRAY 
OEFINE TOT. DAM AS A REAL VARIABLE 
OEFINE COO AS A REAL VARIABLE 

OEFINE EX. RAT, BZERO, B. ALIVE, RZERO, R. ALIVE, BP, R.2ECH, CCSL, CCSU, 

MCPD, SPACE. ECH, SELF. LIKE, UNREC, REC. NUM, TH, LS, LOS. PR, TGT.PR1, 

PR. INC. ID, LEAD. TIME, MTTF, USE. PER, ATT. CONST, FLOT. MOVE AS REAL VARIABLES 
OEFINE OAY TO MEAN 1.0 
DEFINE NIGHT TO MEAN 0.5 
OEFINE 0 AS A REAL VARIABLE 
OEFINE LIGHT. STAT AS A REAL VARIABLE 
OEFINE WORK. ORDER AND N.BNS AS VARIABLES 
OEFINE TOT. REC AS A VARIABLE 
DEFINE TOT. NEED. REC AS A VARIABLE 
OEFINE Bl. ALIVE ANO B2. ALIVE AS REAL VARIABLES 
OEFINE WHO. FIGHT AS A VARIABLE 
OEFINE REC1.NUM AND REC2.NUM AS REAL VARIABLES 
DEFINE MCPD1 AND MCPD2 AS REAL VARIABLES 
OEFINE MCPO.ZERO AS A REAL VARIABLE 
OEFINE 0UIT1 ANO QUIT2 AS VARIABLES 
OEFINE QUIT AS A VARIABLE 
OEFINE PR. OAY. INC AS A REAL VARIABLE 
OEFINE SHOTF TO MEAN 2 

TALLY SUM. REC AS THE SUM AND MEAN. REC AS THE MEAN OF TOT. REC 
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101 TALLY SUM. NEED. REC AS THE SUM AND AVG.NEED AS THE MEAN OF TOT. NEED. REC 

102 DEFINE SEEO AS A VARIABLE 

103 ENO 
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MAIN 

RESERVE DAM.REC(*,*1 AS 550 BY 11 
RESERVE CAN.REC(*,*1 AS 100 BY 11 
RESERVE A(*,*l AS 8 8Y 2 
RESERVE T. ACTION (*, «) AS 8 BY 3 
DEFINE NM AS A REAL VARIABLE 

DEFINE 1 , J, K, N. ARM, N. FWD. DET , N. GROUP AS VARIABLES 
DEFINE X AS A REAL VARIABLE 

DEFINE F, M, NF, LOF AND L0M AS REAL VARIABLES 
READ REP. COUNT 
READ SEED 
LET SEED. V (1 ) -SEED 
FOR 1-2 TO 9, DO 
LET X-RANDOM.F (1) 

LET SEED.V(1)-SEE0.V(1)M0D 
LOOP 

LET X-RANDOM.F (11 
LET SEED. V (1) - SEED. V (1) ->100 
READ P. TANK 
READ N. FIGHT 

READ X.RAT, BZERO, RZERO, BP, R.2ECH, CCSL, CCSU 
READ MCPD. ZERO 

READ S.ECH, SELF. LIKE, UNREC, R.VEHS, TH 
READ LOS. PR, TGT.PR1, PR. INC. ID, LEAD. TIME 
READ MTTF, USE. PER 
READ D 

READ COD AND ALFA 

READ CON. SPEED AND SETUP. TIME AND 8.D1ST 
READ PK.PERS 

READ NMC. FOLKS, NFC. FOLKS, V.C0.1N1T, N. FWD. DET 
READ NMF. FOLKS, NFF. FOLKS, V.FS.1N1T 

READ N.BNS, P.MOB, P.FIX.FHD, PR. HAVE. PARTS. FWD, PR. RE AR. HAVE . PARTS, P. CO. F 1 X 

CALL COMP. TIMES 

LET LIGHT. STAT-DAY 

LET PR.DAY.1NC-PR.INC.1D 

LET TOT. FOLKS-NMC. FOLKS ♦NFC. FOLKS +4. * (NMF. FOLKS ♦ NFF . FOLKS) 

FOR TRY-1 TO REP. COUNT, DO 
LET BAT.NUM-0 
LET LS-LOS.PR 
LET WORK. ORDER-0 
LET EX. RAT-X.RAT 
LET WHO. F1GHT-W. FIGHT 
LET MCPD-MCPD. ZERO 
LET SPACE. ECH-S.ECH 
LET REC.NUM-R. VEHS 
LET NM-NMF. FOLKS 
LET NF-NFF. FOLKS 
IF LIGHT. STAT-NIGHT 
LET LIGHT. STAT-DAY 
LET CCSU-2. xCCSU 
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LET CCSL-2. *CCSL 
LET SETUP. TIME-. 5«$ETUP. TIME 
LET PR. INC. ID-PR.DRT.INC 
LET CON. SPEED-2. *C0N. SPEED 
LET TH-TH/1.5 fiLHRYS 
IF TRT» 1 
CALL INIT. PRINT 
ALWAYS 

LET ATT. CONST— tl.O/BZERO) *LOG.E.F (EX. RAT) 

FOR K»1 TO BZER0*2. SCHEDULE A FAILURE IN EXPONENTIAL. F (MTTF/USE. PER. 1) 
HOURS ’ ‘COMPUTES FAILURE TIMES FOR ALL VEHICLES’ ’ 

LET R.ALIVE-RZERO 
LET B1.ALIVE-BZER0 
LET B2.ALIVE-BZER0 
LET REC1.NUM-REC.NUM/2. 

LET REC2.NUM-REC.NUM/2. 

LET MCPDl-MCPO. ZERO 
LET MCPD2-MCPD.ZER0 

IF WHO. FIGHT-3 LET B. ALI VE-2. *BZERO ALWAYS 
CREATE A MAINT. UNIT FILE MAINT.UNIT IN SUP. BN 
LET NAME (MAINT.UNIT) -CO. MAINT 
LET NM. FOLKS (MAINT.UNIT) -NMC. FOLKS 
LET NF. FOLKS (MAINT.UNIT) -NFC. FOLKS 
LET VEH. COUNT (MAINT.UNIT) -V.C0. INIT 
LET O.FLOT (MAINT.UNIT) -COD 
LET INSPECTOR (MAINT.UNIT) -2 
LET M-NM. FOLKS (MAINT.UNIT) /2. 

LET F-NF. FOLKS (MAINT.UNIT) /2. 

LET N.ARM-TRUNC.F (F) 

LET N. GROUP-TRUNC.F (M) ♦N.ARM 
IF FRAC.F(M)>0. LET LOM-1. ALWAYS 
IF FRAC.F (F) >0. LET LOF-1. ALWAYS 
FOR 1-1 TO N. GROUP, 00 

CREATE A CREW FILE CREW IN SHOP (MAINT.UNIT) 

IF I LE N. ARM LET MISSI ON (CREW) -ARM 
LET N. FOLKS (CREW) -2.+L0F LET LOF-O. 

ELSE LET MISSION (CREW) -AUTO 

LET N. FOLKS (CREW) -2. +LOM LET LOM-O. 

ALWAYS LET OCCUPATI ON (CREW) - 1 DLE 

LOOP 

FOR 1-1 TO N.FWD.OET, 00 

CREATE A MAINT.UNIT FILE MAINT.UNIT IN SUP.BN 
LET NAME (MAINT. UNI T) - 1 
LET NM. FOLKS (MAINT.UNIT) -NM 
LET NF. FOLKS (MAINT.UNIT) -NF 
LET M-NM. FOLKS (MAINT.UNIT) /2. 

LET F-NF. FOLKS (MAINT.UNIT) /2. 

LET N.ARM-TRUNC.F (F) 

LET N. GROUP-TRUNC.F (M) ♦N.ARM 
IF FRAC.F (M)>0. LET LOM-1. ALWAYS 
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IF FRAC. F (F) >0. LET L0F-1. ALWAYS 
LET VEH. COUNT (MAI NT. UNIT) -V.FS. I NIT 
LET Q.FLOT (MAINT. UNIT) -MCPD. ZERO 
LET INSPECTOR (MAINT. UNIT) -1 
FOR J«1 TO N. GROUP, DO 

CREATE A CREW FILE CREW IN SHOP (MAINT. UNIT) 
IF J LE N. ARM LET MISSION (CREW) -ARM 

LET N. FOLKS (CREW) -2.+L0F LET LOF-O. 

ELSE LET MISSION (CREW) -AUTO 
LET N. FOLKS (CREW) *2. ♦LOM LET LOM-D. 

ALWAYS LET OCCUPATION (CREW) -IDLE 
LOOP LOOP 

SCHEDULE A BATTLE IN LEAD. TIME HOURS 
SCHEDULE A DAYLIGHT IN LEAD. TIME* 15. HOURS 
PRINT 4 LINES AS FOLLOWS 
JOB LIST 

WO TD V U H FP MO OAM. REC 

START SIMULATION 

LOOP 

STOP 
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EVENT FAILURE 

DEFINE SPEC. DAM AND BN AS VARIABLES 
DEFINE TEAM AS A VARIABLE 
IF TIME. V*H0URS. V LT LEAD. TIME 
LET SPEC. DAM* STS. FAIL 
LET BN-RANOI.F (1.4.2) 

IF BN-1 OR BN-2 SUBTRACT 1 FROM Bl. ALIVE ALWAYS 
IF BN-3 OR BN-4 SUBTRACT 1 FROM B2. ALIVE ALWAYS 
IF WHO. FIGHT-3 SUBTRACT 1 FROM B. ALIVE ALWAYS 

SCHEDULE A BREAK GIVEN SPEC. DAM AND BN IN UN IFGRM. F (2. . 3. , 2) HOURS 
RETURN 

ELSE IF WHO. FIGHT-3 

IF RANDOM. F (2) >B. ALIVE/ <BZERG*2.) RETURN 
ELSE ADO 1 TO QUIT 

SUBTRACT 1. FROM B. ALIVE 
RETURN 

ELSE LET TEAM-RANOI.F (1.2.2) 

IF TEAM-1 

IF RANDOM. F (2) >B1 . ALIVE/BZEAO RETURN ELSE 
SUBTRACT 1. FROM Bl. ALIVE 
ADD 1 TO QUIT1 
RETURN 

ELSE IF RANDOM. F (2) >B2. AL I VE/BZERO RETURN ELSE 
SUBTRACT 1. FROM B2. ALIVE 
ADD 1 TO QUIT2 
RETURN 

END 
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EVENT BATTLE 

DEFINE REC. KILL AS A VARIABLE 
OEFINE 1 AS A VARIABLE 

DEFINE BROKE, DEST, DIFF, FLAG, K, KILLED, HOW. DAM, LEV. JUMP, NUM. JOBS, 
RECKS, TEMP AS VARIABLES 
DEFINE TE.R. TRANS AS A REAL VARIABLE 

DEFINE TB, RI, TRR, C, TEMP2, NR, T. REC, TE. TRANS, TE. HOOK, REC. TIME 
AS REAL VARIABLES 
OEFINE CHECK AS A REAL VARIABLE 
DEFINE BN. BNH, BNL AS VARIABLES 
DEFINE RAT AS A REAL VARIABLE 
ADO 1 TO BAT. NUM 
ADD 1 TO COUNT 

IF COUNT-4 LET COUNT-O LET SPACE. ECH-20. ALWATS 
PRINT 3 LINES WITH BAT. NUM THUS 

RESULTS OF BATTLE ** 

CALL DET. ALLOC 
IF WHO, FIGHT-3 
LET BNL-1 
LET BNH-4 
GO AROUND 

ELSE IF WHO. FIGHT-1 
LET BNL-1 
LET BNH-2 

LET B.ALIVE*B1. ALIVE 
LET REC. NUM-REC1 . NUM 
LET MCPD-MCPD1 
LET QUIT-QUIT 1 
ELSE LET 8, ALI VE-B2. ALIVE 
LET BNL-3 
LET BNH-4 

LET REC. NUM-REC2. NUM 
LET MCPD-MCP02 
LET QUIT-QUIT2 
ALWAYS 'AROUND * 

LET EX. RAT-EXP. F (-ATT. CONST*B. ALI VE) *LIGHT.STAT 
LET RAT-R.ALIVE/B. ALIVE 

LET CHECK-EX. RAT- ( ( (R. ALIVE/B. ALI VE) **2) * (l.-BP**2) ) 

IF CHECK LT 0. 

LET TB— U. /SORT. F (EX. RAT) ) *LOG. E. F (1 . -BP) 

ELSE LET TB-LOG.E.F ( (SORT. F (CHECK) - (RAT*BP) ) / (SORT . F (EX. RAT) -RAT) ) / 
SORT. F (EX. RAT) 

ALWAYS 

PRINT 3 LINES WITH WHO. FIGHT ANO TB THUS 
WHO. FIGHT IS * TIME OF BATTLE IS *.*** HOURS 
LET RI-R.2ECH*UNIF0RM.F (0.5, 1.0,2) 
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LET TRR- (SPACE. ECH/RI) + TB* (UNIFORM. F (5. , 10. ,2) /60.) 

LET C— EX. RAT* (TB/ ( Cl . -BP) *R. ALIVE) ) 

LET REC . TI ME-TB+TRR+C 

LET TEMP2- ( Cl . -BP) *R. ALI VE/EX. RAT) ♦REfiL. F (QUIT) 

LET CAS.C0UNT-TEMP2-REAL.F (QUIT) 

IF TEMP2 > B. ALIVE LET TEMP2-B. ALI VE+REAL.F (QUIT) ALWAYS 
LET NR* (1 . -SELF . L I KE-UNREC) *TEMP2 
IF REC.NUM-O LET FLAG-1 GO DONE ALWAYS 

LET T.REC- (NR/REC.NUM) * ( (MCPD* (1 . ♦D) /CCSL) *TH* (MCPD* (l.+D) /CCSU) ) 

IF REC. TIME LE T.REC 

LET RECKS-INT.F (NR*REC. T1ME/T. REC) 

ELSE LET RECKS-INT.F CNR) ALWAYS 
LET TE. TRANS- (MCPD/CCSU) * (l.+D) 

LET TE.R. TRANS- (MCPD/CCSL) * (1 . ♦D) 

LET TE.H00K-LS*UNIF0RM.F (0. , .4.2) * (l./TGT.PRI) *PR. INC. 1D*TH 
LET NUM. JOBS-O 
LET SPACE. ECh-S.ECh 
IF RECKS GE REC. NUM 
LET TEMP-REC. NUM 
LET DIFF-RECKS-TEMP 
ELSE LET TEMP-RECKS 
ALWAYS FOR K*1 TO TEMP, DO 

IF RANDOM. F (2) LE (TAN. F (TE. TRANS*0. 017453) ) 

OR RANDOM. F (2) LE ABS.F (1. /LOG. E.F (TE. HOOK) ) 

OR RANDOM. F (2) LE TAN.F (TE . R. TRANS*G. 0 17453) 

SUBTRACT 1 FROM REC. NUM 
ADD 1 TO REC. KILL 
IF REC.NUM-O. GO DONE ALWAYS 
GO ON 

ELSE ADD 1 TO NUM. JOBS 
•ON* LOOP 
IF DIFF NE 0 

FOR K-l TO DIFF, DO 

IF RANDOM. F (2) LE (TAN.F (TE. TRANS*0. 017453) ) 

OR RANDOM. F (2) LE ABS. F (1 . /LOG. E . F (TE . HOOK) ) 

OR RANDOM. F (2) LE TAN.F (TE. R. TRANSwO. 01 7453) 

SUBTRACT 1 FROM REC. NUM 
ADD 1 TO REC. KILL 
IF REC.NUM-O. GO DONE ALWAYS 
GO OUT 

ELSE ADO 1 TO NUM. JOBS 
’OUT • LOOP 
REGARDLESS 'DONE * 

PRINT 2 LINES WITH REC. KILL THUS 

NUMBER RECOVERY VEHICLES KILLED THIS BATTLE* ** 

••SELF-LIKE, SYS FAIL • * 

LET BROKE-INT.F (SELF. LIKE*REAL.F (QUIT) ) 

IF BROKE GE 1 

FOR 1-1 TO BROKE, DO 
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LET HOW. OAM-SYS. FAIL 
LET BN-RANDI.F (BNL.BNH.2) 

SCHEDULE ft BREAK GIVEN HOW. DAM AND BN IN UNIFORH.F (. 5*TE . TRANS, 
REC.TIME.2) HOURS 

LOOP 

ELSE LET BROKE-O 

ALWATS * ’SELF-LIKE, SHOT ' • 

LET KILLEO-INT.F (SELF. LIKE* (1 .-BP) *R. AL I VE/EX. RAT) 

IF KILLED GE 1 

FOR 1-1 TO KILLEO, DO 
LET HOW. OAM-SHOTF 
LET BN-RAND1 • F (BNL.BNH, 2) 

SCHEDULE A BREAK GIVEN HON. DAM AND BN IN UNIFORM. F (. 5*TE. TRANS, 
REC.TIME.2) HOURS 

LOOP 

ELSE LET KILLEO-O 

ALWATS ••RECOVERED. STS FAIL * * 

IF FLAG-1 GO CHANGE ALWAYS 
LET BROKE-QUIT-BROKE 
IF BROKE GE 1 

FOR 1-1 TO BROKE. 00 
LET HOW. DAH«STS. FAIL 
LET BN-RAN01.F (BNL.BNH.2) 

SCHEDULE A BREAK GIVEN HOW. DAM AND BN IN UNIFORM. F (. 5*TE. TRANS, 
REC.TIME.2) HOURS 

LOOP 

ELSE LET BROKE-O 

ALWAYS ••RECOVERED, SHOT" 

LET DEST-NUM. JOBS- BROKE 
FOR 1-1 TO DEST, 00 
LET HOW. DAM-SHOT 

LET BN-RANOI.F (BNL.BNH.2) 

SCHEDULE A BREAK GIVEN HOW. DAM AND BN IN UNIFORM. F (. 5*TE. TRANS, 
REC.TIME.2) HOURS 

LOOP 
•CHANGE * 

LET B. ALI VE-B. AL IVE-TEMP2+REAL . F (QUIT) 

LET MCPD1-MCPD1- (FLOT.MOVEwTB) 

LET MCPD2-MCPD2- (FLOT.MOVEmTB) 

LET MCPO -MCPD - (FLOT.MOVExTB) 

LET TOT. REC-NUM. JOBS 
LET TOT. NEED. REC-INT.F (NR) 

LET R. CAS. CNT-R. AL I VE* (1 . -BP) 

LET R.ALIVE-BP*R. ALIVE 
IF R. ALIVE LE 70. ADD RZERO TO R. ALIVE 
ELSE ADD RZERO/2. TO R. ALIVE ALWAYS 

LET SPACE. ECH-S.ECH 
IF WHO. F 1GHT-3 GO AHEAD 
ELSE IF WHO. FIGHT-1 
SUBTRACT 4. FROM MCPD1 
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LET QUIT 1-0 
IF MCPD1 LE B.DIST 

ADD MCPD.2EA0 TO MCPD1 
FOR 1-1 TO 2, DO 

FOR EACH MAINT.UNIT IN SUP. BN WITH NAME (MAINT.UNIT) -I . DO 
LET LEV. JUMP-MAINT. UNIT 

SCHEDULE A JUMP GIVEN LEV. JUMP IN 15. MINUTES 
ADD MCPD. ZERO TO 0. FLOT (MAINT.UNIT) 

LOOP 

LOOP ALWAYS 
LET REC1.NUM-REC.NUM 
LET Bl.ALIVE-B. ALIVE 
GO AHEAD 

ELSE SUBTRACT 4. FROM MCPD2 
LET QUIT2-0 
IF MCP02 LE B.DIST 
ADD MCPD. ZERO TO MCPD2 
FOR 1-3 TO 4. DO 

FOR EACH MAINT.UNIT IN SUP. BN WITH NAME (MAINT.UNIT) -I . DO 
LET LEV. JUMP-MAINT. UNIT 

SCHEDULE A JUMP GIVEN LEV. JUMP IN 15. MINUTES 
ADD MCPD. ZERO TO D. FLOT (MAINT. UNI T) 

LOOP 

LOOP ALWAYS 
LET REC2.NUM-REC.NUM 
LET B2.ALIVE-B. ALIVE 
•AHEAD * 

FOR EACH MAINT.UNIT IN SUP. BN WITH NAME (MAINT. UNIT) >0, DO 
IF NAME (MAINT.UNIT) LE 2 LET D. FLOT (MAINT.UNIT) -MCPD1 
ELSE LET D. FLOT (MAINT.UNIT) -MCPD2 
ALWAYS LOOP 

FOR EACH MAINT.UNIT IN SUP. BN WITH NAME (MAINT.UNIT) -CO. MAINT 
LET D. FLOT (MAINT.UNIT) -D. FLOT (MAINT.UNIT) - (FLOT. MOVEhTB) 

PRINT 2 LINES WITH REC.NUM. B. ALIVE. R. ALIVE THUS 
• RE. VEHS. LEFT* *h B.ALIVEs *** R.ALIVEi *xx 

IF B. ALIVE LE 71. 

IF WHO. FIGHT NE 3 
LET WHO. FIGHT-3 
LET B.ALIVE-B1. ALIVE+B2. ALIVE 
LET QUIT-QUIT1 +QUIT2 
LET REC. NUM-REC1 . NUM+REC2. NUM 
SCHEDULE A BATTLE IN TB+TRR* (4. -TB) /RI HOURS 
GO WRITE 

ELSE SCHEDULE A STOP. SIMULATION IN TB HOURS 
PRINT 1 LINE THUS 

BLUE REACHES BREAKPOINT THIS BATTLE 
GO WRITE 
ELSE 

IF WHO. FIGHT-1 LET WHO. FIGHT-2 ELSE 
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IF WHO. FIGHT-2 LET WHO. FIGHT-1 ALWAYS REGAROLESS 
SCHEDULE A BATTLE IN TB+TRR+ (U. -TB) /RI HOURS 
LET QUIT-0 
'WRITE f 

PRINT 5 LINES AS FOLLOWS 
JOB LIST 

HO TO VUH FP MO DAM. REC 

RETURN 

ENO 



143 



1 

2 

3 

5 

6 

7 

a 

9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 



EVENT BREAK GIVEN HOW. DAM AND BN 
DEFINE LEVEL AS A VARIABLE 
DEFINE BN. WO AS VARIABLES 
DEFINE SPEC. JOB ANO HOW. DAM AS VARIABLES 
DEFINE X AS A REAL VARIABLE 
DEFINE MAX. DAM AS A REAL VARIABLE 
LET X-RANDGM.F (2) 

LET WORK. ORDER* WORK. ORDER* 1 
CREATE A JOB 

LET UNIT (JOB) -BN 
LET WO. NUM (JOB) -WORK. ORDER 
IF X LE P. TANK LET VEH. TYPE (JOB) -TANK 
ELSE LET VEH. TYPE (JOB) -APC 
ALWAYS 

IF HOW. OAM-SYS. FAIL GO ON 
ELSE IF HOW. DAM-SHOT 
LET MAX. DAM-1.0 
ELSE LET MAX. DAM-0.2 ALWAYS 
IF VEH. TYPE (JOB) -TANK 

LET FP. DAM (JOB) -UNIFORM. F (0.. 1..2) 

LET MOB. DAM (JOB) -UNIFORM. F (0. .MAX. DAM. 3) 

GO DOWN 

ELSE LET FP.DAM(JOB) -UNIFORM. F (D.. 1.. 2) 

LET MOB. DAM (JOB) -UNIFORM. F (0. . MAX. DAM, 3) 

GO DOWN 

•ON' LET X-RANDOM.F (3) 

IF X LE P. MOB LET MOB. DAM (JOB) -UNIFORM. F (D. ,. 2, 3) 

ELSE LET FP.DAM (JOB) -UNIFORM. F(D., .2,2) 

ALWAYS 

•DOWN' 

LET SPEC. JOB- JOB 

CALL ASSESS. DAM GIVEN SPEC. JOB 

LET WO-WO. NUM (JOB) 

IF VEH. TYPE (JOB) -TANK 

PRINT 1 LINE WITH WORK. ORDER, TIME.V, VEH. TYPE (JOB) , UNIT (JOB). HOW. DAM. 
FP.DAM (JOB) , MOB. DAM (JOB) , DAM. REC (WO. 1 ) . DAM. REC (WO. 2) , DAM. REC (WO, 3) . 
DAM.REC (WO, 4) .DAM. REC (WO. 5) .DAM. REC (WO. 6) .DAM. REC (WO. 7) .DAM. REC (WO. 8) , 
DAM. REC (WO. 9) .DAM.REC (WO. ID) .DAM.REC (WO. 1 1) THUS 

MMM M.MM M M N.XN M.MM M.MM M.MM M.MM M.MM M.MM M.MM "» "" “ • 

ELSE 

PRINT I LINE WITH WORK. ORDER, TIME.V. VEH. TYPE (JOB) . UNIT (JOB), HON.OflM, 
FP.DAM (JOB) , MOB. OAM (JOB) , DAM. REC (HO. 1 ). OAM. REC (NO. 2) , DAM. REC (HO. 3) , 
DAM.REC (HO.M) .DAM.REC (HO. 5) .OAM. REC (HO. 6) . DAM. REC (HO. 7) .DAM.REC (HO. 8) . 
DAM.REC (HO. 9) THUS 



ALHATS 

FOR EACH MAI NT. UNIT IN SUP. BN. DO 

IF NAME (HA I NT. UNIT) "UNIT (JOB) GO AHEAD 
ELSE LOOP 

•AHEAD' LET SPEC. JOB-JOB LET LEVEL -MAI NT. UN IT 
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51 IF T . JUMP (HA I NT. UNIT) NE 0.0 flNO TlME.V LT T. JUMP (HAINT. UNIT) 

52 SCHEDULE AN ARRIVAL GIVEN SPEC. JOB ANO LEVEL AT T. JUMP (HAINT. UNIT) 

53 ELSE SCHEDULE AN ARRIVAL GIVEN SPEC. JOB ANO LEVEL NON 

51 ALHATS RETURN 

55 END 
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EVENT ARRIVAL GIVEN SPEC. JOB AND LEVEL 
OEFINE LEV. MOVE AS A VARIABLE 
DEFINE SPEC. JOB AND LEVEL AS VARIABLES 
LET JOB-SPEC. JOB LET MAINT .UNIT-LEVEL 
ADO 1. TO VEH. COUNT (MAINT. UNIT) 

IF CNM. FOLKS (MAINT. UNIT) LE 1. AND MOB. DAM (JOB) NE 0.) OR 
(NF. FOLKS (MAINT. UNIT) LE 1. AND FP. DAM (JOB) NE 0.) 

LET LEV. MOVE-MAINT. UNIT 

SCHEOULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA.F (A (7,1), 

A (7,2) ,9) * (T. ACT I ON (7, 3) -T. ACTION (7.1))) ♦T. ACTION (7. 1) HOURS 
FILE JOB IN MT. QUEUE (MAINT. UNIT) RETURN ELSE 
IF INSPECTOR (MAINT. UNIT)«0 

FILE JOB IN HI. QUEUE (MAINT. UNIT) RETURN 
ELSE SUBTRACT 1 FROM INSPECTOR (MAINT. UNIT) 

IF NAME (MAINT. UNIT)>0 

LET T I. TIME- (BETA.F (A (1 . 1 ) . A (1 . 2) , 4) m (T. ACTION (1,3) -T. ACTION (1,1)))* 

T. ACT ION (1,1) 

SCHEDULE A DIAGNOSIS GIVEN SPEC. JOB AND LEVEL IN TI . TIME HOURS 
RETURN 

••AT COMPANY " 

ELSE LET T I. TIME- (BETA.F (A (2. 1) .A (2,2) .4) * (T. ACTION (2.3) -T. ACT I ON (2.1) )) ♦ 
T. ACTION (2. 1) 

SCHEDULE A DIAGNOSIS GIVEN SPEC. JOB AND LEVEL IN TI .TIME HOURS 
RETURN 
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EVENT REPAIR GIVEN ft. CREW, SPEC. JOB AND LEVEL 
DEFINE HO AS A VARIABLE 
OEFINE JOB. CAN AS A VARIABLE 
OEFINE CAN AS A VARIABLE 
OEFINE SPEC. JOB AND LEVEL AS VARIABLES 
OEFINE A. CREW AS A VARIABLE 
LET CREW-A.CREH LET JOB-SPEC. JOB 
LET WO - HQ. NUM (JOB) 

LET MAINT. UNIT-LEVEL 
IF IN. CAN (JOB) NE 0 

CALL SUBSTITUTE GIVEN SPEC. JOB, LEVEL AND A. CREW 
AOO 1 TO CAN. FIX 
ALWAYS 

IF MISSION (CREW) -AUTO LET MOB. DAM (JOB) -0. 

IF JOB IS IN AUTOMOTIVE REMOVE JOB FROM AUTOMOTIVE ALWAYS 
ELSE LET FP. DAM (JOB) -0. 

IF JOB IS IN ARMAMENT REMOVE JOB FROM ARMAMENT ALWAYS 
ALWAYS IF FP. DAM (JOB) -0. AND MOB. DAM (JOB) -0. 

IF JOB IS IN CLOSED. JOB GO LOOK OTHERWISE 
LET DOWN. TIME-TIME. V-TIME. DOWN (JOB) 

ADO 1 TO NUM. RET. BATTLE FILE JOB IN CLOSED. JOB 



IF 


JOB 


IS 


IN 


AUTOMOTIVE 


REMOVE 


JOB 


FROM 


AUTOMOTIVE 


ALHATS 


IF 


JOB 


IS 


IN 


ARMAMENT 


REMOVE 


JOB 


FROM 


ARMAMENT 


ALWAYS 


IF 


JOB 


IS 


IN 


WT. QUEUE 


REMOVE 


JOB 


FROM 


HT. QUEUE 


ALWAYS 


IF 


JOB 


IS 


IN 


MS. QUEUE 


REMOVE 


JOB 


FROM 


HS. QUEUE 


ALWAYS 


IF 


JOB 


IS 


IN 


HI. QUEUE 


REMOVE 


JOB 


FROM 


HI. QUEUE 


ALHAYS 


IF 


JOB 


IS 


IN 


HP. QUEUE 


REMOVE 


JOB 


FROM 


HP. QUEUE 


ALWAYS 


SUBTRACT 


1 


. FROM veh. 


COUNT (MAINT. 


UNIT) 








IF 


MHO 


.FIGHT-3 ADD 


1 TO B.i 


ALIVE 


: go 


LOOK 






ELSE IF 1 


UNIT (JOB) -1 


OR UNIT (JOB) -2 


ADD 1 TO 8 


1. ALIVE 



ELSE ADO 1 TO B2. ALIVE GO LOOK 

ELSE IF JOB IS NOT IN WS. QUEUE AND JOB IS NOT IN AUTOMOTIVE 
AND JOB IS NOT IN ARMAMENT 
FILE JOB IN HS. QUEUE (MAINT. UNIT) 

ELSE ’LOOK * IF WS. QUEUE (MAINT. UNIT) IS EMPTY 
GO CONTROL 

ELSE FOR EACH JOB IN WS. QUEUE (MAINT. UNIT) . DO 
IF MISSION (CREW) -AUTO AND MOB. DAM (JOB) >0. 

AND JOB NOT IN AUTOMOTIVE GO TAKE 
ELSE IF MISSION (CREW) -ARM AND FP. DAM ( JOB) >0. 

AND JOB NOT IN ARMAMENT GO TAKE 
REGARDLESS ALWAYS LOOP 
’CONTROL’ ’’TRY TO CANNIBALIZE” 

IF HP. QUEUE IS EMPTY AND WT. QUEUE IS EMPTY 
LET OCCUPATION (CREW) -IDLE RETURN 
ELSE FOR EACH JOB IN HP. QUEUE (MAINT. UNI T) . DO 

IF (FP.DAM (JOB) -0. AND MISSI ON (CREW) -ARM) OR (MOB. DAM (JOB) -0. ANO 
MISSION (CREW) -ARM) GO DOWN 

ELSE 

LET JOB. CAN-JOB 
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CALL CANNIBAL GIVEN JOB. CAN ANO LEVEL YIELDING CAN 
LET SPEC. JOB* JOB 
LET MAINT. UNIT-LEVEL 
IF CAN-0 GO DOWN 
ELSE 

CALL SUBSTITUTE GIVEN SPEC* JOB, LEVEL AND A. CREW 
IF MISSION (CREW) -ARH 

LET T. ARM. REP- (BETA.F (A (4, 1) , A (4,2) ,6) * (T. ACTION (4,3) -T. ACTION (4,1))) + 
T. ACTION (4, 1) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB AND LEVEL IN T. ARM. REP HOURS 
FILE JOB IN ARMAMENT (MAINT. UNIT) 

ELSE 

LET T. AUTO. REP- (BETA.F (A (3,1) , A (3,2) ,6) * (T. ACT ION (3,3) -T. ACTION (3, 1) )) ♦ 
T. ACTION (3.1) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB AND LEVEL IN T. AUTO. REP HOURS 
FILE JOB IN AUTOMOTIVE (MAINT. UNIT) 

ALWAYS RETURN 
'DOWN • LOOP 

IF NAME (MAINT. UNIT) -CO. MAINT LET OCCUPAT I ON (CREW) - 1 DLE RETURN 
ELSE FOR EACH JOB IN MT . QUEUE (MAI NT . UNI T) , DO 
IF JOB IS IN AUTOMOTIVE OR JOB IS IN ARMAMENT 

FOR EACH MOVE. REAR IN EV. S (I . MOVE. REAR) WITH WO. NUM (SPEC. MOVE) EQ 
WO. NUM (JOB) , DO 

CANCEL THE MOVE. REAR DESTROY THE MOVE. REAR 
REMOVE THE JOB FROM WT. QUEUE (MAINT . UNI T) LOOP GO OUT ALWAYS 
IF (FP.DAM (JOB) -0. AND MI SSI ON (CREW) -ARM) OR (MOB. DAM (JOB) -0. AND 
MISSION (CREW) -AUTO) GO OUT 
ELSE 

LET JOB. CAN-JOB 

CALL CANNIBAL GIVEN JOB. CAN AND LEVEL YIELDING CAN 
LET SPEC. JOB- JOB 
LET MAINT. UNIT-LEVEL 
IF CAN-0 GO OUT 
ELSE 

CALL SUBSTITUTE GIVEN SPEC. JOB. LEVEL ANO A. CREW 
IF MISSION (CREW) -ARM 

LET T. ARM. REP- (BETA.F (A (4,1) .A (4,2) , 6) m (T. ACTION (4.3) -T. ACTION (4. 1) ) ) + 
T. ACTION (4,1) 

SCHEDULE A REPAIR GIVEN A. CREW. SPEC. JOB ANO LEVEL IN T. ARM. REP HOURS 
FILE JOB IN ARMAMENT (MAINT. UNIT) 

ELSE 

LET T. AUTO. REP- (BETA.F (A (3, 1) , A (3, 2) , 6) - (T. ACTION (3,3) -T. ACTION (3,1))) + 
T. ACTION (3,1) 

SCHEDULE A REPAIR GIVEN A. CREW. SPEC. JOB AND LEVEL IN T. AUTO. REP HOURS 
FILE JOB IN AUTOMOTIVE (MAINT. UNIT) 

ALWAYS RETURN 
•OUT * LOOP 

LET OCCUPATION (CREW) -10LE RETURN 

•TAKE* REMOVE JOB FROM WS. QUEUE (MAI NT . UNI T) 

LET SPEC. JOB- JOB 
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IF MISSION (CREW) -ARM RNO FP. DAM (JOB) NE 0. 

LET T. ARM. REP- (BETA. F (A (4,1) , A (4,2) , 6) * (T. ACT I ON (4,3) -T. ACT I ON (4, 1) ) ) ♦ 

T. ACTION (4, 1) 

LET REP. UNIT (JOB) -NAME (MAI NT. UNIT) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB, LEVEL IN T. ARM. REP (JOB) HOURS 
LET ARM.REP. TIME-T. ARM.REP (JOB) 

FILE JOB IN ARMAMENT (MAINT. UNIT) RETURN 
ELSE IF MISSION (CREW) -AUTO AND MOB. OAM (JOB) NE 0. 

LET T. AUTO. REP- (BETA. F (A (3, 1) , A (3,2) ,6) * (T. ACT ION (3, 3) -T. ACT ION (3, 1) ) ) ♦ 
T. ACTION (3,1) 

LET REP. UNIT (JOB) -NAME (MAINT. UNIT) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB, LEVEL IN T. AUTO. REP (JOB) HOURS 
LET M. REP. TIME-T. AUTO. REP (JOB) 

FILE JOB IN AUTOMOTIVE (MAINT. UNIT) RETURN 
ELSE RETURN 

END 
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EVENT PARTS. COME GIVEN SPEC. JOB AND LEVEL 
DEFINE BAT AND FBAT AS VARIABLES 
DEFINE SPEC. JOB AND LEVEL AS VARIABLES 
DEFINE A. CREW AS A VARIABLE 
LET MAINT. UNIT-LEVEL LET JOB-SPEC. JOB 
IF JOB IS IN WS. QUEUE RETURN ELSE 
IF JOB IS NOT IN WP. QUEUE RETURN ELSE 
REMOVE THIS JOB FROM MP. QUEUE (MAINT. UNIT) 

IF JOB IS IN AUTOMOTIVE GO DOWN OTHERWISE 
IF MOB. DAM (JOB) >0. 

FOR EACH CREW IN SHOP (MAINT. UNIT) WITH MISSION (CREW) -AUTO, 00 
IF OCCUPATION (CREW) -IOLE LET BAT-1 LET A. CREW-CREW 
GO OUTSIDE 
ELSE LOOP 
’OUTSIDE’ IF BAT-1 

LET T. AUTO. REP- (BETA. F (A (3, 1) • A (3,2) *6) * (T. ACTION (3.3) -T. ACTION (3. 1) ) ) ♦ 
T. ACTION (3.1) 

LET REP. UNIT (JOB) -NAME (MAINT. UNIT) 

SCHEOULE A REPAIR GIVEN A. CREW. SPEC. JOB. LEVEL IN T. AUTO. REP (JOB) HOURS 

LET M. REP. TIME-T. AUTO. REP (JOB) 

FILE J08 IN AUTOMOTIVE (MAINT. UNIT) 

ELSE FILE JOB IN WS. QUEUE (MAINT. UNIT) 

REGARDLESS ALWATS ’DOWN’ IF JOB IS IN ARMAMENT GO ON OTHERWISE 
IF FP. OAM (JOB) -Q. GO BETONO ELSE 

FOR EACH CREW IN SHOP (MAINT. UNIT) WITH MISSION (CREW) -ARM. DO 
IF OCCUPATION (CREW) -IDLE LET FBAT-1 LET A. CREW-CREW 
GO BEYOND 
ELSE LOOP 
’BETONO • IF FBAT-1 

LET T. ARM. REP- (BETA.F (A (4.1) . A (4. 2) . 6) * (T. ACT ION (4.3) -T. ACTION (4. 1) ) ) ♦ 

T. ACTION (4.1) 

LET REP. UNIT (JOB) -NAME (MAINT. UNIT) 

SCHEOULE A REPAIR GIVEN A. CREW. SPEC. JOB. LEVEL IN T. ARM. REP (JOB) HOURS 

LET ARM. REP. TIME-T. ARM. REP (JOB) 

FILE JOB IN ARMAMENT (MAINT. UNIT) 

ELSE IF JOB IS NOT IN WS. QUEUE 

FILE JOB IN WS. QUEUE (MAINT. UNIT) 

REGAROLESS ALWATS ’ON’ RETURN 
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EVENT DIAGNOSIS GIVEN SPEC. JOB AND lEV.OlAG 
DEFINE LEV. ARR AS A VARIABLE 
DEFINE LEVEL AS A VARIABLE 

DEFINE BAT. FBAT, CAN, FP. LEV. DI AG, SPEC. JOB AS VARIABLES 
DEFINE A. CREW AS A VARIABLE 

DEFINE P. PARTS, X AND P.FIX AS REAL VARIABLES 
DEFINE CAN. VEH AS A 1 -01 MENSI ONAL ARRAY 
LET LEVEL -LEV.OlAG 

LET JOB-SPEC. JOB LET HA1NT. UNI T-LEVEL 
IF VEH. TYPE (JOB) -TANK LET FP- 1 1 
ELSE LET FP-9 

ALWAYS ADD 1 TO INSPECTOR (HAINT .UNIT) 

IF NAME (MAINT. UNIT) >0 LET P.FI X-P. FIX. FHD 
LET P.PARTS-PR. HAVE. PARTS. FWO 
ELSE LET P.FIX-P.CQ.FIX LET P. PARTS-PR. REAR. HAVE. PARTS 
ALWAYS IF MOB. DAM (JOB) >P. FIX OR FP. DAM ( JOB) >P . F I X GO EVAC. MAYBE 
ELSE LET X-UNIFORM.F (0. , 1.. 4) 

IF X>P. PARTS ' ’NEED PARTS. TRY TO CANNIBALIZE * 1 

CALL CANNIBAL GIVEN SPEC. JOB AND LEVEL YIELDING CAN 
LET MAINT. UNIT-LEVEL 
LET JOB-SPEC. JOB 
IF CAN-0 GO EVAC. MAYBE 

OTHERWISE ELSE "HAVE PARTS" IF MOB. DAM (JOB) >0. 0 

FOR EACH CREW IN SHOP (MAINT. UNIT) WITH Ml SSI ON (CREW) -AUTO, DO 
IF OCCUPATION (CREW) -IDLE LET BAY-1 LET A. CREW-CREW 
GO FIX 
ELSE LOOP 
'FIX' IF BAY-1 

LET T. AUTO. REP- (BETA.F (A (3. 1) .A (3.2) .6) n (T. ACT ION (3, 3) -T. ACTION (3. 1) ) ) ♦ 
T. ACT1 ON (3, 1) 

LET REP. UNIT (JOB) -NAME (MAINT. UNIT) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB. LEVEL IN T . AUTO. REP (JOB) HOURS 
LET M.REP.TIME-T. AUTO. REP (JOB) 

FILE JOB IN AUTOMOTIVE (MAINT. UNIT) 

ELSE FILE JOB IN WS. QUEUE (MAINT. UNIT) 

REGARDLESS 

ALWAYS REGARDLESS IF FP.DAM ( JOB) -0. GO NEXT 

ELSE FOR EACH CREW IN SHOP (MAINT .UNIT) WITH MI SSI ON (CREW) -ARM, DO 
IF OCCUPATION (CREW) -IDLE LET FBAY-1 LET A. CREW-CREW 
GO BEYOND 
ELSE LOOP 
'BEYOND' IF FBAY-1 

LET T. ARM. REP- (BETA.F (A (4,1) , A (4, 2) ,6) * (T. ACTION (4, 3) -T. ACTION (4,1))) + 

T. ACTION (4, 1) 

LET REP. UNIT (JOB) -NAME (MAINT. UNIT) 

SCHEDULE A REPAIR GIVEN A. CREW. SPEC. JOB. LEVEL IN T . ARM. REP (JOB) HOURS 
LET ARM.REP.TIME-T. ARM.REP (JOB) 

FILE JOB IN ARMAMENT (MAINT. UNIT) GO NEXT 
ELSE IF JOB IS NOT IN WS. QUEUE 
FILE JOB IN WS. QUEUE (MAINT. UNIT) GO NEXT 
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•EVAC. MAYBE * REGAAOLESS IF NAME (MAI NT . UNI T) >0 

IF MOB. DAM (JOB) <.2 SCHEDULE A MOVE. AEAA GIVEN SPEC. JOB AND LEVEL NOW 
ELSE SCHEDULE A MOVE. AEAA GIVEN SPEC. JOB AND LEVEL IN 
(BETA. F (A (7. 1) , A (7,2) .9) * (T. ACT I ON (7.3) -T. ACT ION (7.1) ) ) ♦T. ACTION (7. 1) 
HOUAS 
ALWAYS 

FILE JOB IN WT. QUEUE (MAINT. UNIT) 

GO NEXT 

ELSE IF MOB.DAM (JOB) >P.FIX OA FP. DAM (JOB) >P. FI X 
SCHEDULE A MOVE. AEAA GIVEN SPEC. JOB AND LEVEL IN 

(BETA. F (A (8. 1) t A(8.2) .9) « (T. ACTION (8. 3) -T. ACTION (B. 1) ) ) *T. ACTION (B. 1) 
HOUAS 

FILE JOB IN WT. QUEUE (MAINT. UNIT) GO NEXT 
ELSE FILE JOB IN WP. QUEUE (MAINT . UNI T) 

LET T.PAAT. COMES- (BETA . F (A (5. 1 ) . A (5. 2) .6) * (T . ACTI ON (5. 3) - 
T. ACTION (5. 1) ) ) ♦T. ACTION (5. 1) 

SCHEDULE A PAATS.COME GIVEN SPEC. JOB AND LEVEL IN 
T.PAAT. COMES HOUAS 

•NEXT’ 

LET LEVEL -LEV. DI AG 

IF WI. QUEUE IS EMPTY AETUAN 

ELSE AEMOVE FI AST JOB FAOM Wl . QUEUE (LEVEL) LET SPEC. JOB- JOB 
SUBTAACT 1 FAOM 1NSPECT0A (LEVEL) 

IF NAME (LEVEL) >0 

LET TI .TIME- (BETA. F (A (1.1) .A (1.2) .4) * (T. ACT ION (1 , 3) -T. ACTION (1 , 1) ) ) ♦ 

T. ACTION (1.1) 

SCHEDULE A DIAGNOSIS GIVEN SPEC. JOB AND LEVEL IN T1.TIME HOURS 
RETURN 

* *AT COMPANY * * 

ELSE LET T I. TIME- (BETA.F (A (2. 1) .A (2. 2) .4) * (T. ACTION (2, 3) -T. ACTION (2,1)))* 
T. ACTION (2.1) 

SCHEOULE A DIAGNOSIS GIVEN SPEC. JOB AND LEVEL IN TI . TIME HOUAS RETURN 

END 
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EVENT MOVE. REAR GIVEN SPEC. JOB AND LEVEL 
DEFINE LEV. ARR AS A VARIABLE 
OEFINE SPEC. JOB AND LEVEL AS VARIABLES 
LET HAINT. UNIT-LEVEL LET JOB-SPEC. JOB 
IF THIS JOB IS NOT IN WT. QUEUE RETURN 
ELSE SUBTRACT 1. FROM VEH. COUNT (MAINT. UNIT) 
REMOVE THIS JOB FROM WT. QUEUE (MAINT. UNIT) 



IF 


JOB 


IS 


IN 


AUTOMOTIVE 


REMOVE 


JOB 


FROM 


AUTOMOTIVE 


ALHATS 


IF 


JOB 


IS 


IN 


ARMAMENT 


REMOVE 


JOB 


FROM 


ARMAMENT 


ALUATS 


IF 


JOB 


IS 


IN 


NT. QUEUE 


REMOVE 


JOB 


FROM 


NT. QUEUE 


ALHATS 


IF 


JOB 


IS 


IN 


NS. QUEUE 


REMOVE 


JOB 


FROM 


US. QUEUE 


ALUATS 


IF 


JOB 


IS 


IN 


HI. QUEUE 


REMOVE 


JOB 


FROM 


HI. QUEUE 


ALUATS 


IF 


JOB 


IS 


IN 


WP. QUEUE 


REMOVE 


JOB 


FROM 


UP. QUEUE 


ALUATS 



IF NAME (MAINT. UNIT) >C0. MAINT 
FOR EACH MAINT. UNIT IN SUP. BN, DO 

IF NAME (MAINT. UNIT) -CO. MAINT GO AHEAD 
ELSE LOOP 

•AHEAD 1 LET LEV . ARR-MA I NT . UNI T 
LET MAINT. UNIT-LEVEL 

SCHEDULE AN ARRIVAL GIVEN SPEC. JOB AND LEV. ARR IN (BETA. F (A (6. 1) , A (6. 2) . 9) 
* (T. ACT I ON (6.3) -T. ACTION (6.1))) ♦T. ACTION (6, 1) HOURS 

ELSE 

IF JOB IS NOT IN EVAC.JOB FILE JOB IN EVAC.J0B 
ADD 1 TO NUM. EVAC. REAR ALWAYS 
REGARDLESS RETURN 

END 
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EVENT DAYLIGHT 

IF TIME.VnHOURS.V LT LEAD. TIME RETURN 
ELSE IF LIGHT. STAT - DAT 
LET LIGHT. STAT-NIGHT 
LET CCSL-.5*CC$L 
LET CCSU*. 5*CCSU 
LET LS-.l 
LET TH-1 . 5*TH 
LET PR. INC. ID-. 3 
LET D-2. *D 

LET SETUP. TIME* 2. *SETUP. TIME 
LET CON. SPEED-. 5*C0N. SPEED 
SCHEDULE A DAYLIGHT IN 9 HOURS 
RETURN 

ELSE LET LIGHT. STAT-DAY 
LET CCSL-2. mCCSL 
LET CCSU-2. *CCSU 
LET LS-LOS.PR 
LET TH-TH/1.5 
LET PR. INC. ID- PR. DAY. INC 
LET D-0. 5mD 

LET SETUP. TIME-. 5*SETUP. TIME 
LET CON. SPEED-2. nCON. SPEED 
SCHEDULE A DAYLIGHT IN 15. HOURS 
RETURN 

END 
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EVENT JUMP GIVEN LEV. JUMP 

DEFINE LEV. JUMP AS A VARIABLE 

DEFINE F.TIME AND J.TIME AS REAL VARIABLES 

LET MAINT. UNIT-LEV. JUMP 

LET J. T IME-MCPO. ZERO/CQN.SPEED+SET UP. TIME /MINUTES. V 
SCHEDULE A GET. THERE GIVEN LEV. JUMP IN J.TIME HOURS 
FOR EACH JOB IN WS. QUEUE (MAI NT . UNI T) , 00 

IF MOB. DAM (JOB) GT 0.2 AND JOB IS NOT IN ARMAMENT AND JOB IS NOT IN 
AUTOMOTIVE 

REMOVE THE JOB FROM WS. QUEUE (MAINT . UNI T) 

OESTROT THE JOB 

SUBTRACT 1. FROM VEH. COUNT (MAINT. UNIT) 

ALWAYS LOOP 

FOR EACH JOB IN WI . QUEUE (MAINT . UN I T) , 00 
IF MOB. DAM (JOB) GT 0.2 

REMOVE THE JOB FROM WI . QUEUE (MAI NT. UNIT) 

DESTROY THE JOB 

SUBTRACT 1. FROM VEH. COUNT (MAINT. UNIT) 

ALWAYS LOOP 

FOR EACH JOB IN WT. QUEUE (MAINT. UNI T) . 00 

FOR EACH MOVE. REAR IN EV. S (I . MOVE. REAR) WITH SPEC. JOB-JOB, 00 
IF TIME. A (MOVE. REAR) > (15. / (HOURS. V*MI NUTES. V) ) ♦TIME.V 
CANCEL THE MOVE. REAR DESTROY THE MOVE. REAR 
IF JOB IS IN WS. QUEUE REMOVE JOB FROM WS. QUEUE ALWAYS 

IF JOB IS IN ARMAMENT REMOVE JOB FROM ARMAMENT ALWAYS 

IF JOB IS IN AUTOMOTIVE REMOVE JOB FROM AUTOMOTIVE ALWAYS 
IF JOB IS IN WP. QUEUE REMOVE JOB FROM WP. QUEUE ALWAYS 

IF JOB IS IN WT. QUEUE REMOVE JOB FROM WT. QUEUE ALWAYS 

OESTROY THE JOB 

SUBTRACT 1. FROM VEH. COUNT (MAI NT . UNIT) 

ALWAYS LOOP 
LOOP 

FOR EACH JOB IN ARMAMENT (MAINT. UNIT) , DO 

FOR EACH REPAIR IN EV. S ( I . REPAI R) WITH SPEC. REP (REPAIR) -JOB AND 
LEV. REP (REPAIR) ■MAINT. UNIT* 00 
IF MOB. DAM (JOB) >0.0 

LET OCCUPATION (A. CREW) -IDLE 

CANCEL THE REPAIR DESTROY THE REPAIR 

IF JOB IS IN ARMAMENT REMOVE JOB FROM ARMAMENT ALWAYS 

IF JOB IS IN WS. QUEUE REMOVE JOB FROM WS. QUEUE ALWAYS 

IF JOB IS IN AUTOMOTIVE REMOVE JOB FROM AUTOMOTIVE ALWAYS 

DESTROY THE JOB 

SUBTRACT 1. FROM VEH. COUNT (MAINT. UNIT) 

ELSE LET F.TIME - TIME. A (REPAIR) -TIME. V 
CANCEL THE REPAIR 

RESCHEDULE THIS REPAIR IN (F. T IME*H0URS. V) ♦J.TIME HOURS 
ALWAYS LOOP 
LOOP 

FOR EACH JOB IN AUTOMOTIVE (MAINT. UNIT) . 00 

FOR EACH REPAIR IN EV. S (I . REPAI R) WITH SPEC. REP (REPAIR) -JOB AND 
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LEV. REP (REPAIR) -Mfil NT .UNIT. DO 
LET OCCUPATION (ft. CREW) «IDLE 
CANCEL THE REPAIR DESTROY THE REPAIR 
REMOVE THE JOB FROM AUTOMOTIVE (MAINT. UNIT) 

IF JOB IS IN WS. QUEUE REMOVE JOB FROM WS. QUEUE ALWATS 
IF JOB IS IN ARMAMENT REMOVE JOB FROM ARMAMENT ALWATS 
DESTROY THE JOB 

SUBTRACT 1. FROM VEH. COUNT (MAINT .UNIT) 

LOOP LOOP 

LET T. JUMP (MAI NT. UNIT) .TIME. V+J. TIME /HOURS. V 
RETURN 

END 
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EVENT GET. THERE GIVEN LEV. GET 

DEFINE LEV. GET , SPEC. JOB, CAN, LEV. MOVE, FP, ft. CREW, J ftS VARIABLES 
LET MflINT. UNIT-LEV. GET 
LET T. JUMP (MAINT. UNIT)»O.D 

FOR EACH JOB IN WS. QUEUE (MflINT. UNIT) WITH IN.CftN(JOB) NE 0, DO 
IF VEH. TYPE-TANK LET FP- 1 1 
ELSE LET FP-9 ftLWftTS 

FOR J-l TO FP LET CftN. REC (IN. CAN (JOB) , J) -0 
LET SPEC. JOB-JOB 

CALL CANNIBAL GIVEN SPEC. JOB ftNO LEV. GET YIELDING CAN 
IF CAN-0 REMOVE JOB FROM WS. QUEUE (MflINT. UNIT) 

FOR EACH MAINT. UNIT IN SUP. BN WITH NAME (MflINT. UNI T) -0 
LET LEV. MOVE-MAINT. UNIT 

IF MOB. DAM (JOB) <0.2 SCHEOULE A MOVE. REAR GIVEN SPEC. JOB AND 
LEV. MOVE NOW 
LET MAINT. UNIT-LEV. GET 
FILE JOB IN WT. QUEUE (MAINT. UNIT) 

ELSE SCHEOULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN 
(BETA.F (A (7, 1) , A (7,2) ,9) « (T. ACTION (7,3) -T. ACTION (7,1))) 

♦ T. ACTION (7, 1) HOURS 

FILE JOB IN WT. QUEUE (MAINT. UNIT) 

ALWAYS LET MAI NT . UNI T-LE V. GET 
ALWAYS LOOP 

IF WS. QUEUE IS EMPTY GO ON ELSE 

FOR EACH CREW IN SHOP (MAINT. UNI T) WITH OCCUPATION (CREW) -IDLE, DO 
IF MI SSI ON (CREW) -AUTO 

FOR EACH JOB IN WS. QUEUE (MAINT. UNIT) , DO 

IF MOB. DAM (JOB) >0 AND JOB IS NOT IN ARMAMENT 
AND JOB IS NOT IN AUTOMOTIVE 
REMOVE JOB FROM WS. QUEUE 
FILE JOB IN AUTOMOTIVE LET SPEC. JOB-JOB 
LET A. CREW-CREW 

LET T. AUTO. REP- (BETA.F (A (3, 1) ,A (3,2) , 6) * (T . ACT I ON (3, 3) - 
T. ACT I ON (3, D) )+T. ACTION (3,1) 

SCHEDULE A REPAIR GIVEN A. CREW. SPEC. JOB AND LEV. GET IN 
T. AUTO. REP HOURS 
ALWAYS LOOP 

ELSE FOR EACH JOB IN WS. QUEUE (MAINT. UNIT) , DO 
IF FP. DAM (JOB) >0.0 AND JOB IS NOT IN AUTOMOTIVE 
. AND JOB IS NOT IN ARMAMENT 

REMOVE JOB FROM WS. QUEUE (MAINT. UNI T) 

FILE JOB IN ARMAMENT (MAINT. UNIT) 

LET SPEC. JOB- JOB LET A. CREW-CREW 

LET T. ARM. REP- (BETA.F (A (4,1) .A (4.2) .6) * (T. ACT I ON (4, 3) - 
T. ACTION (4,1) ) ) ♦T. ACTION (4,1) 

SCHEDULE A REPAIR GIVEN A. CREW, SPEC. JOB AND LEV. GET IN 
T. ARM. REP HOURS 
ALWAYS LOOP 
ALWAYS LOOP 
’ON* RETURN END 
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EVENT STOP. SIMULATION 

DEFINE I DENT AS AN ALPHA VARIABLE 

OEFINE LOS. RAT. PER.FIX.REC. PR. REP. DAM. P. TROOPS. TROOPS AS REAL VARIABLES 
FOR EACH MAINT. UNIT IN SUP. BN. DO 
ADO NM. FOLKS (MAINT. UNIT) TO TROOPS 
ADO NF. FOLKS (MAINT. UNIT) TO TROOPS LOOP 
LET LOS. RAT-S.R. CAS/S. CAS 
LET PER. F I X.REC-NUM. RET. BATTLE/SUM. REC 
LET PR. REP. OAM«NUM. RET. BATTLE/S. CAS 
LET P. TROOPS*TROOPS/TOT. FOLKS 
PRINT 5 LINES WITH T1ME.V THUS 

SIMULATION ENDED AFTER **.* DATS 

HERE ARE THE RESULTS FOR RECOVERY AND EVACUATION 

PRINT 5 LINES WITH SUM. REC. SUM. NEED. REC. MEAN. REC AND AVG. NEED THUS 
*** VEHICLES RECOVERED *** VEHICLES NEEDED RECOVERT 

MEAN NUMBER OF VEHICLES RECOVERED PER ATTACK **. 

MEAN NUMBER OF VEHICLES NEEDING RECOVERY PER ATTACK ***. 

PRINT 3 LINES THUS 

HERE ARE THE MAINTENANCE RESULTS 

PRINT 8 LINES HITH WORK. ORDER. NUM. RET. BATTLE. NUM. EYAC. REAR AND 
CAN. FIX THUS 

NUMBER OF JOBS RECEIVED «x«mm 

NUMBER OF JOBS REPAIRED 

NUMBER OF JOBS EVACUATED 

NUMBER OF SUCCESSFUL CANNI BAL I ZAT I ONS **** 

PRINT 2 LINES WITH MEAN. DOWN. T IME THUS 
AVERAGE REPAIR CYCLE TIME *««.** DATS 

PRINT 4 LINES HITH MEAN. AUTO. REP AND MEAN. ARM. REP AS FOLLOWS 
AVERAGE REPAIR TIME FOR AUTOMOTIVE JOBS WAS **.**** HOURS 

AVERAGE REPAIR TIME FOR ARMAMENT JOBS WAS **.**** HOURS 

PRINT 4 LINES HITH AVG. HP. TIME ANO MEAN. TI. TIME THUS 
AVERAGE TIME A JOB WAITS FOR PARTS IS **.**** HOURS 

AVERAGE TIME A JOB WAITS FOR INSPECTION IS **.**** HOURS (COMPANY) 

PRINT 10 LINES WITH LOS. RAT. PER.FIX.REC. PR. REP. DAM, P. TROOPS THUS 
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MEASURES OF EFFECTIVENESS 



RED CAS/BLUE CAS • xxx.xxx 
PERCENT OF RECOVERED JOBS REPAIRED x.xxx 
PERCENT OF DAMAGED VEHICLES REPAIRED x.xxx 
PERCENT OF TROOPS NOT KILLED x.xxx 



FOR EACH MAINT.UNIT IN SUP. BN, DO 

IF NAME (MAINT.UNIT) »0 LET I DENT MAI NT. COMP* 
ALWAYS IF NAME (MAINT.UNIT) »1 LET IDENT="FWD1" 
ALWAYS IF NAME (MAINT.UNIT) -2 LET I0EnT*"Fw02" 
ALWAYS IF NAME (MAINT.UNIT) -3 LET IDENT*"FWD3" 
ALWAYS IF NAME (MAINT.UNIT) =4 LET IDENT*"FWD4* 



REGARDLESS 

PRINT 2 LINES WITH I DENT THUS 
BACKLOG FOR xxxxxxxxxx 



IF WI. QUEUE IS NOT EMPTY 

PRINT 2 LINES WITH IDENT THUS 

WAITING INSPECTION AT xxxxxxxxxx 

PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM 

FOR EACH JOB IN WI. QUEUE. DO 

PRINT 1 LINE WITH WO. NUM. T I ME . DOWN. VEH. TYPE . UNIT, FP. DAM. MOB. DAM THUS 

XXXX XXX.XXXXX X X X.XXXX X.XXXX 

LOOP 

ELSE PRINT 1 LINE THUS 

NO JOBS WAITING INSPECTION 
ALWAYS IF WS. QUEUE IS NOT EMPTY 
PRINT 2 LINES WITH IDENT THUS 
WAITING SHOP AT xxxxxxxxxx 

PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM 

FOR EACH JOB IN WS. QUEUE. DO 

PRINT 1 LINE WITH WO. NUM. T IME. DOWN, VEH. TYPE. UNIT. FP. DAM. MOB. DAM THUS 

XXXX XXX, XXXMX X X x.xxxx x.xxxx 

LOOP 

ELSE PRINT 1 LINE THUS 

NO JOBS WAITING SHOP 
ALWAYS IF WT. QUEUE IS NOT EMPTY 
PRINT 2 LINES WITH IDENT THUS 

WAITING TRANSPORTATION AT xxxxxxxxxx 

PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM 
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FOR EACH JOB IN WT. QUEUE, DO 

PRINT 1 LINE WITH WO.NUM, T IME . DOWN, VEH. TYPE , UNIT. FP. DAM. MOB. DAM THUS 

MMMM MMM.MMMMM M M H . MMMM M.MMMM 

LOOP 

ELSE PRINT 1 LINE AS FOLLOWS 

NO JOBS WAITING TRANSPORTATION 
ALWAYS IF WP. QUEUE IS NOT EMPTY 
PRINT 2 LINES WITH 1DENT THUS 
WAITING PARTS AT mmmmmmmmmm 

PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM 

FOR EACH JOB IN WP. QUEUE. DO 

PRINT 1 LINE WITH WO.NUM. TIME. DOWN, VEH. TYPE, UNIT, FP. DAM,* MOB. DAM THUS 

MMMM MMM.MMMMM M M M . MMMM M . MMMM 

LOOP 

ELSE PRINT 1 LINE THUS 

NO JOBS WAITING PARTS 
ALWAYS IF ARMAMENT IS NOT EMPTY 
PRINT 2 LINES WITH IDENT THUS 

IN SHOP (ARMAMENT) AT mmmmmmmmmm 
PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM REP TIME 

FOR EACH JOB IN ARMAMENT (MAI NT. UNl T) , DO 

PRINT 1 LINE WITH WO.NUM. T IME . DOWN, VEH. TYPE , UNIT, FP. DAM, MOB. DAM, 

T. ARM. REP THUS' 

MMMM MMM.MMMMM M M M , MMMM M , MMMM MM. MMMM 

LOOP 

ELSE PRINT 1 LINE THUS 

NO JOBS IN ARMAMENT SHOP 
ALWAYS IF AUTOMOTIVE IS NOT EMPTY 
PRINT 2 LINES WITH IDENT THUS 

IN SHOP (AUTOMOTIVE) AT mmmmmmmmmm 
PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM REP TIME 

FOR EACH JOB IN AUTOMOTIVE (MAINT. UNIT) . DO 

PRINT 1 LINE WITH WO.NUM, TIME. DOWN, VEH. TYPE, UNIT, FP. DAM. MOB. DAM, 

T. AUTO. REP THUS 

MMMM MMM.MMMMM M M M . MMMM M . MMMM MM. MMMM 

LOOP 

ELSE PRINT 1 LINE THUS 

NO JOBS IN AUTOMOTIVE SHOP 
ALWAYS LOOP 
PRINT 3 LINES THUS 

THE FOLLOWING JOBS HAVE BEEN COMPLETED* 

PRINT 1 LINE THUS 
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WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM AUTO REP ARM REP REP AT 
FOR EACH JOB IN CLOSED. JOB. DO 

PRINT 1 LINE WITH WO. NUM. T I ME . DOWN. VEH. TYPE . UNIT. FP. DAM, MOB. DAM, 

T. AUTO. REP, T. ARM. REP, REP. UNIT THUS 

M M MM MMM.MMMM M M M.MMMM M, MM M M MM.MMMM MM.MMMM M 

LOOP 

PRINT 3 LINES THUS 

THE FOLLOWING JOBS HAVE BEEN EVACUATED REAR* 

PRINT 1 LINE THUS 

WO NUM TIME DOWN VEH TYPE UNIT FP DAM MOB DAM 

FOR EACH JOB IN EVAC.JOB. DO 

PRINT 1 LINE WITH WO. NUM, T I ME . DOWN. VEH . TYPE . UNIT. FP. DAM, MOB. DAM THUS 

MMMM MMM.MMMMM M M M.MMMM M.MMMM 

LOOP 

CALL START. OVER 
RETURN 

END 
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ROUTINE START. OVER 
LET NUM. EVAC. REAR-0 
LET NUM. RET. BATTLE-0 
LET COUNT-O 
LET CAN. FIX-0 
LET TIME. V-0. 0 

RESET TOTALS OF TOT. REC AND TOT.NEEQ. REC 

RESET TOTALS OF DOWN. TIME, M. REP. TIME, ARM. REP . T 1ME, TI.TIME 
RESET TOTALS OF CAS. COUNT AND R.CAS.CNT 
FOR EACH REPAIR IN EV.S (I . REPAIR) , 00 

CANCEL THE REPAIR DESTROY THE REPAIR LOOP 
FOR EACH DAYLIGHT IN EV. S (I . DAYL IGHT) , 00 

CANCEL THE DAYLIGHT DESTROY THE DAYLIGHT LOOP 
FOR EACH MOVE. REAR IN EV. S (I .MOVE. REAR) , DO 

CANCEL THE MOVE. REAR DESTROY THE MOVE. REAR LOOP 
FOR EACH DIAGNOSIS IN EV. S tl . 01 AGN0S1S) , DO 
FILE SPEC. OIAG (DIAGNOSIS) IN KILL. JOB 
CANCEL THE DIAGNOSIS OESTROY THE DIAGNOSIS LOOP 
FOR EACH JUMP IN EV . S (I . JUMP) , DO 

CANCEL THE JUMP DESTROY THE JUMP LOOP 
FOR EACH GET. THERE IN EV. S (I . GET . THERE) , DO 

CANCEL THE GET. THERE OESTROY THE GET. THERE LOOP 
FOR EACH ARRIVAL IN EV. S (I . ARRI VAL) , DO 

CANCEL THE ARRIVAL DESTROY THE ARRIVAL LOOP 
FOR EACH BREAK IN EV . S ( I . BREAK) , DO 

CANCEL THE BREAK DESTROY THE BREAK LOOP 
FOR EACH FAILURE IN EV. S (I . FAILURE) , 00 

CANCEL THE FAILURE OESTROY THE FAILURE LOOP 
FOR EACH BATTLE IN EV. S (I . BATTLE) , DO 
CANCEL THE BATTLE DESTROY THE BATTLE LOOP 
FOR EACH PARTS. COME IN EV. S (I .PARTS. COME) , DO 

CANCEL THE PARTS. COME DESTROY THE PARTS. COME LOOP 
FOR EACH HAINT.UNIT IN SUP. BN, 00 

FOR EACH JOB IN WT . QUEUE (MAI NT . UN I T) , DO 
IF JOB IS IN WT. QUEUE 

REMOVE THE JOB FROM WT . QUEUE (MA1NT. UNIT) 

ALWAYS 

IF JOB IS NOT IN KILL. JOB FILE JOB IN KILL. JOB ALWAYS 
LOOP 

FOR EACH JOB IN WS. QUEUE (MAI NT . UNIT) , DO 
IF JOB IS IN WS. QUEUE 
REMOVE JOB FROM WS. QUEUE (MAINT . UNI T) 

ALWAYS 

IF JOB IS NOT IN KILL. JOB FILE JOB IN KILL. JOB ALWAYS 
LOOP 

FOR EACH JOB IN ARMAMENT (MAINT. UNIT) , DO 
IF JOB IS IN ARMAMENT 
REMOVE JOB FROM ARMAMENT (MAINT. UNIT) 

ALWAYS 

IF JOB IS NOT IN KILL. JOB FILE JOB IN KILL. JOB ALWAYS 
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LOOP 

FOR EACH JOB IN AUTOMOTIVE (MA1NT.UN1T) * 00 
IF JOB IS IN AUTOMOTIVE 
REMOVE JOB FROM AUTOMOTIVE (MA1NT. UNIT) 

ALWAYS 

IF J08 IS NOT IN KILL. J08 FILE JOB IN KILL. JOB ALWAYS 
LOOP 

FOR EACH JOB IN HI . QUEUE (MAI NT. UN IT) . DO 
IF JOB IS IN HI. QUEUE 
REMOVE J08 FROM HI . QUEUE (MAI NT. UNI T) 

ALWAYS 

IF J08 IS NOT IN KILL. JOB FILE J08 IN KILL. JOB ALWAYS 
LOOP 

FOR EACH J08 IN HP. QUEUE (MA1NT .UNIT) . 00 
IF J08 IS IN HP. QUEUE 
REMOVE JOB FROM HP. QUEUE (MAI NT. UNI T) 

ALWAYS 

IF JOB IS NOT IN K1LL.J08 FILE JOB IN KILL. JOB ALWAYS 
LOOP 
LOOP 

FOR EACH J08 IN CLOSED. J08, DO 
REMOVE J08 FROM CLOSED. JOB 

IF J08 IS NOT IN KILL. JOB FILE JOB IN K1LL.J08 ALWAYS 
LOOP 

FOR EACH J08 IN EVAC. J08, DO 
REMOVE THE JOB FROM EVAC. JOB 

IF JOB IS NOT IN KILL. JOB FILE JOB IN KILL. JOB ALWAYS 
LOOP 

FOR EACH JOB IN KILL. JOB. DO 

REMOVE THE J08 FROM KILL.J08 DESTROY THE J08 LOOP 
FOR 1-1 TO 100, FOR J-l TO 11. LET CAN . REC ( I , J) -0 
FOR 1-1 TO 550, FOR J-l TO 11. LET DAM. REC 1 1 . J) -0. 0 
FOR EACH MA1NT.UNIT IN SUP. BN. DO 
REMOVE THE MA1NT.UNIT FROM SUP. BN 
DESTROY THE MAI NT. UNI T LOOP 
RETURN 
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ROUTINE TO ASSESS. OAM GIVEN SPEC. JOB 

DEFINE SPEC. JOB, WO, YCOUNT AS VARIABLES 
DEFINE MOB. FP, 2 AND T AS VARIABLES 
LET JOB-SPEC. J08 

IF VEH.TTPE (JOB) -TANK LET MOB-6 LET FP- 1 1 
ELSE LET MOB-6 LET FP-9 
ALWAYS LET WO-WO. NUM (JOB) 

IF MOB. DAM (JOB) NE 0. 

LET Y-INT. F (MOB. DAM (JOB) mREAL.F (MOB) ) 

•DRAW * LET Z-RAN01.F (1.M0B.8) 

IF DAM. REC (WO, Z) NE 0. GO DRAW 
ELSE LET DAM. REC (WO, Z) -UNIFORM. F (0..1., 7) 
ADD 1 TO YCOUNT IF YCOUNT LT Y GO DRAW 
REGARDLESS ALWAYS IF FP. DAM l JOB) NE 0. 

LET Y-INT. F (FP. DAM (JOB) kREAL.F (FP-MOB) ) 

LET YCOUNT-O 

•ROLL * LET Z-RANDI.F ( (MOB+1) ,FP,8J 
IF DAM. REC (WO. Z) NE 0. GO ROLL 
ELSE LET DAM. REC (WO, Z) -RANDOM. F (7) 

ADO 1 TO YCOUNT IF YCOUNT LT Y GO ROLL 
REGARDLESS ALWAYS 
RETURN 
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ROUTINE CANNIBAL GIVEN SPEC. JOB AND LEVEL YIELDING CAN 
DEFINE FB. I. J. NSB, WO AS VARIABLES 
DEFINE SPEC. JOB AS A VARIABLE 
0EF1NE Z AS A REAL VARIABLE 
DEFINE X AS A REAL VARIABLE 
OEFINE JUNK AS A VARIABLE 
DEFINE CAN. VEH AS A 1-DIMENSIONAL ARRAY 
DEFINE LEVEL AS A VARIABLE 
DEFINE CAN AS A VARIABLE 
LET JOB-SPEC. JOB LET MAINT. UNIT-LEVEL 
LET WG-WO.NUM (JOB) 

IF VEH. TYPE (JOB) -TANK LET FP-11 
ELSE LET FP-9 

ALWAYS RESERVE CAN. VEH (h) AS FP 
FOR 1-1 TO FP, DO 

IF DAM.REC (WG,I)>D. ADD 1 TO NSB 
ALWAYS LOOP 

FOR EACH JUNK IN WT. QUEUE WITH VEH. TYPE (JUNK) - VEH. TYPE (SPEC. JOB) , DO 
IF JUNK-JOB GO CONTINUE ALWAYS 
FOR J-l TO FP, DO 

IF DAH.REC (WO, J) »D. GO LOOP 
ELSE IF CAN. VEH (J) NE D GO LOOP 

ELSE IF DAM.REC (WO, J) >1 .-DAM.REC (WG.NUM (JUNK) , J) GO LOOP 
ELSE LET X-RANDOM.F (1) 

IF X>1 .0-DAM. REC (WO. NUM (JUNK) ,J) GO LOOP 
ELSE LET CAN. VEH (J) -JUNK ADD 1 TO CAN 

ADD 1 TO CAN. NUM (JUNK) ADD 1.0 TO DAM. REC (WO. NUM (JUNK) , J) 

’LOOP * LOOP 
IF CAN-NSB GO AHEAD 
ELSE ‘CONTINUE* LOOP 

FOR EACH JUNK IN WP. QUEUE WITH VEH. T YPE (JUNK) -VEH. T YPE (SPEC. JOB) , DO 
IF JUNK-JOB GO ON ALWAYS 
FOR J-l TO FP, DO 

IF DAM.REC (WO, J)*0. GO AROUND 
ELSE IF CAN. VEH (J) NE 0 GO AROUND 

ELSE IF DAM.REC (WO, J) >1 . -DAM. REC (WO. NUM (JUNK) , J) GO AROUND 
ELSE LET X-RANDOM.F (1) 

IF X>1 . D- DAM. REC (WO. NUM (JUNK) , J) GO AROUND 
ELSE LET CAN. VEH (J) -JUNK ADD 1 TO CAN 

ADD 1 TO CAN . NUM (JUNK) ADD 1.0 TO DAM. REC (WO. NUM (JUNK) , J) 
•AROUND' LOOP 
IF CAN-NSB GO AHEAD 
ELSE 'ON' LOOP 

“CANNOT CANNIBALIZE" LET CAN-0 
RELEASE CAN. VEH (*) RETURN 

'AHEAD' “PREPARE TO CANNIBALIZE" 

IF JOB IS IN WT. QUEUE REMOVE JOB FROM WT. QUEUE ALWAYS 
IF JOB IS IN WP. QUEUE 
REMOVE JOB FROM WP. QUEUE ALWAYS 
IF JOB IS NOT IN WS. QUEUE FILE JOB IN WS. QUEUE ALWAYS 
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FOR J-l TO FP. DO 

IF CRN. VEH (J) *0 GO THRU 

ELSE FOR ERCH MOVE. REAR IN EV. S (1 . MOVE . REAR) WITH SPEC. JOB-CAN. VEH (J) , DO 
CANCEL THIS MOVE. REAR DESTROT THIS MOVE. REAR 
’THRU * LOOP 

FOR EACH PARTS. COME IN EV. S (1 . PARTS. COME) WITH SPEC. JOB* CAN. VEH (J) , DO 
CANCEL THIS PARTS. COME 

LET Z» (BETA. F (A (5,1) ,A (5,2) ,6) * (T. ACTION (5,3) -T. ACTION (5. 1) ) ) ♦ 

T. ACTION (5, 1) 

LET Z-Z/24 . 0 

LET T.PART.COMES-MAX.F (TIME. A (PARTS. COME) , TIME. V+Z) -T1ME.V 
RESCHEDULE THIS PARTS. COME GIVEN CAN. VEH (J) AND LEVEL IN T. PART. COMES 
HOURS 

IF CAN. VEH (J) IS NOT IN WP. QUEUE FILE CAN. VEH (J) IN WP. QUEUE (MA1NT. UNIT) 
ALWATS 
LOOP 
LOOP 

FOR 1-1 TO 100, DO 
FOR J-l TO 11. DO 

IF CAN. REC (I , J) NE 0 GO DROP 
ELSE LOOP 

LET IN. CAN (JOB) -I GO FURTHER 
’DROP* LOOP 

’FURTHER* FOR J-l TO FP LET CAN. REC (IN. CAN (JOB) , J) -CAN. VEH (J) 

RELEASE CAN. VEH (k) 

RETURN 

ENO 
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ROUTINE TO SUBSTITUTE GIVEN SPEC. JOB, LEVEL AND A. CREW 
DEFINE A. CREW. FP. J. LEVEL. M. N. WO AS VARIABLES 
DEFINE JOB. MOVE AS A VARIABLE 

LET MA1NT. UNIT-LEVEL LET JOB-SPEC. JOB LET CREW-A.CREW 
LET NO-NO. NUM (JOB) 

IF VEH. TYPE (JOB) -TANK LET FP-11 
ELSE LET FP-9 

ALWAYS IF MISSION (CREW) -AUTO LET M-l LET N-6 
ELSE LET M-7 LET N-FP 
ALWAYS FOR J-M TO N, DO 

IF CAN. REC (IN. CAN (JOB) . J) -0 GO LOOP 

ELSE AOO (OAM. REC (WO, J) -1.0) TO DAM. REC (WO. NUM (CAN. REC (IN. CAN (JOB) , J) ) . J) 
SUBTRACT 1 FROM CAN. NUM (CAN. REC (IN. CAN (JOB) , J) ) 

IF CAN. NUM (CAN. REC (IN. CAN (JOB) , J) ) NE 0 GO ZERO ELSE 
IF CAN. REC (IN. CAN (JOB) .J) IS NOT IN WT. QUEUE GO ZERO ELSE 
LET JOB. MOVE-CAN. REC (IN. CAN (JOB) . J) 

SCHEDULE A MOVE. REAR GIVEN JOB. MOVE AND LEVEL IN (BETA. F (A (7. 1 ) . 

A (7,2) ,9) * (T. ACTION (7,3) -T . ACT ION (7, 1 ) ) ) ♦T. ACT I ON (7, 1) HOURS 
•ZERO * 

LET CAN. REC (IN. CAN (JOB) ,J) -0 
'LOOP % LOOP 
RETURN 

END 
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ROUTINE DET. ALLOC 

DEFINE PEOPLE AS A REAL VARIABLE 
DEFINE LEV. ATT AS A VARIABLE 
DEFINE P.OET. LAMBDA AND X AS REAL VARIABLES 
FOR EACH MAINT.UNIT IN SUP. BN WITH NAME (MAINT. UNIT) >0. DO 
LET LAMBDA-1. /SORT. F (VEH. COUNT (MAINT.UNIT)) 

LET P.OET-EXP.F (- (LAMBOA-D. FLGT (MAINT.UNIT) **ALFA) ) 

LET PEGPLE-NM. FOLKS (MAINT.UNIT) ♦NF. FOLKS (MAINT.UNIT) 

IF PEOPLE LE 2. PRINT 1 LINE WITH NAME (MAINT.UNIT) THUS 
MAINT UNIT » * ALREAOT DESTROTEO 
CO LOOP OTHERWISE 
LET X-RANDOH.F (7) 

IF X LE P.DET PRINT 1 LINE WITH NAME (MAINT. UNIT) AND PEOPLE THUS 
MAINT UNIT • * DETECTED THIS BATTLE *** PERSONNEL PRESENT 
LET LEV. ATT-MAINT. UNIT 
CALL ATTACK GIVEN LEV. ATT 

LET PEOPLE - PEOPLE -NM. FOLKS (MAINT.UNIT) -NF. FOLKS (MAINT.UNIT) 

PRINT 1 LINE WITH PEOPLE THUS 
*** PEOPLE KILLED IN THIS ATTACK 

ELSE PRINT 1 LINE WITH NAME (MAINT.UNIT) » P.OET. D.FLOT AND VEH. COUNT THUS 
MAINT UNIT » * NOT DETECTED P.DET - *.**«* D.FLOT - «*.*** VEH ■ 

PRINT 1 LINE WITH PEOPLE THUS 
*** PERSONNEL PRESENT AT UNIT 
ALWATS 'LOOP* LOOP 
RETURN 

END 
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ROUTINE ATTACK GIVEN LEV. ATT 

DEFINE LEV. ATT AND SPEC. JOB AS VARIABLES 
DEFINE I AND LEV. MOVE AS VARIABLES 
DEFINE MIS, N. AUTO, N. ARM AS VARIABLES 
DEFINE N, F, LOF, LGM AS REAL VARIABLES 
LET MAINT. UNIT-LEV. ATT 

IF PK.PERS GT RANDOM. F (7) SUBTRACT 1. FROM NM. FOLKS (MAINT . UNI T) ALWATS 
FOR EACH CREW IN SHOP (MAI NT . UNI T) WITH OCCUPAT 1 ON (CREW) NE DEAD, DO 
FOR J-l TO N. FOLKS (CREW) ,00 

IF PK.PERS GT RANDOM. F (7) * 'GUT KILLED" 

IF MISSION (CREW) -AUTO SUBTRACT 1. FROM NM. FOLKS (MAI NT . UNI T) 

ELSE SUBTRACT 1. FROM NF. FOLKS (MAINT. UNI T) 

ALWATS SUBTRACT 1. FROM N. FOLKS (CREW) 

ALWAYS LOOP 

LOOP 

LET M-NM. FOLKS (MAINT. UNIT) /2. 

LET F-NF. FOLKS (MAINT. UNIT) /2. 

LET N. ARM-TRUNC.F (F) 

LET N. AUTQ-TRUNC.F (M) 

IF FRAC. F (M) >0. LET LOM-1. ALWAYS 
IF FRAC.F (F) >0. LET LOF-1. ALWAYS 

FOR EACH CREW IN SHOP (MAINT. UNI T) WITH OCCUPAT ION (CREW) -BUSY, DO 
IF MISSION (CREW) -AUTO 

IF N.AUT0>0 SUBTRACT 1 FROM N.AUTO 
LET N. FOLKS (CREW) -2. 

ELSE LET OCCUPATION (CREW) -DEAD 
FOR EACH REPAIR IN EV. S ( I . REPAI R) WITH A. CREW-CREW, DO 
CANCEL THE REPAIR LET JOB-SPEC. REP (REPAIR) 

REMOVE JOB FROM AUTOMOTI VE (MAINT . UNI T) 

FILE JOB IN WS. QUEUE (MAINT. UNIT) 

DESTROY THE REPAIR LOOP 

ALWAYS 

ELSE IF N.ARM>0 SUBTRACT 1 FROM N. ARM 
LET N. FOLKS (CREW) -2. 

ELSE LET OCCUPATION (CREW) -DEAD 

FOR EACH REPAIR IN E V. S ( I . REPAIR) WITH A. CREW-CREW, DO 
CANCEL THE REPAIR LET JOB-SPEC. REP (REPAIR) 

REMOVE JOB FROM ARMAMENT (MAI NT. UNI T) 

FILE JOB IN WS. QUEUE (MAINT. UNIT) 

DESTROY THE REPAIR LOOP 
REGARDLESS ALWAYS LOOP 

FOR EACH CREW IN SHOP (MAINT. UNI T) WITH OCCUPAT I ON (CREW) - 1 DLE, DO 
IF MISSION (CREW) -AUTO 

IF N . AUT0>O SUBTRACT 1 FROM N.AUTO LET N. FOLKS (CREW) -2. 

ELSE LET OCCUPATION (CREW) -DEAD 
ALWAYS 

ELSE IF N.ARM>0 SUBTRACT 1 FROM N. ARM LET N. FOLKS (CREW) *2. 

ELSE LET OCCUPATION (CREW) -DEAD 
ALWAYS 
ALWATS LOOP 
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IF L0F-1. FOR EACH CREW IN SHOP (MAINT. UNI T) WITH MISS ION (CREW) -ARM 
AND OCCUPATION (CREW) NE DEAD, DO 
ADD 1. TO N. FOLKS (CREW) GO DOWN LOOP 
*OOWN % ALWAYS 

IF LOM-1. FOR EACH CREW IN SHOP (MAI NT . UNl T) WITH MISS ION (CREW) -AUTO 
AND OCCUPATION (CREW) NE DEAD, DO 
ADO 1. TO N. FOLKS {CREW) GO GUTN LOOP 
*OUTN * ALWAYS 

FOR EACH REPAIR IN EV. S ( I . REPA1 R) WITH LEV. REP (REPAIR) -MAI NT. UN IT AND 
LOOP.CH (SPEC. REP (REPAIR) )»Q. DO 
CANCEL THE REPAIR 
LET LOOP.CH (SPEC. REP (REPAIR) ) =»1 
RESCHEDULE THE REPAIR AT TIME. A (REPAIR) ♦ 0.042 
LOOP 

FOR EACH JOB IN ARMAMENT (MA1NT. UNIT) LET LOOP.CH (JOB) *0 
FOR EACH JOB IN AUTOMOTIVE (MA1NT .UNIT) LET LOOP. CH (JOB) *0 

FOR EACH DIAGNOSIS IN EV. S (1 . DI AGNOSIS) WITH LEV. 01 AG (DIAGNOSIS) -MAINT .UNIT 
AND LOOP.CH (SPEC. DIAG (DIAGNOSIS) ) *D, DO 
CANCEL THE DIAGNOSIS 
LET LOOP.CH (SPEC. DIAG (DIAGNOSIS) ) -1 
RESCHEDULE THE DIAGNOSIS AT T 1ME. A (DIAGNOSIS) +0.042 
LOOP 

FOR EACH DIAGNOSIS IN EV. S (1 . DIAGNOSIS) WITH LEV. DIAG (DIAGNOSIS) -MAI NT. UNIT 
LET LOOP.CH (SPEC. DIAG (DIAGNOSIS) ) -D 
LET MAINT. UNIT-LEV. ATT 
LET LEV. MOVE-MAINT. UNIT 
IF NM. FOLKS (MAINT. UNIT) LE 1. 

FOR EACH JOB IN WS. QUEUE (MAINT . UNIT) WITH MOB. DAM (JOB) >0. , DO 
REMOVE JOB FROM WS. QUEUE (MAINT. UNIT) 

LET SPEC. JOB- JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA. F (A (7, 1 ) , 

A (7,2) , 9) n (T. ACT ION (7,3) -T . ACTION (7,1))) ♦T . ACTION (7,1) HOURS 
IF JOB IS NOT IN WT. QUEUE 

FILE JOB IN WT. QUEUE (MAINT. UNIT) 

ALWAYS 

FOR EACH REPAIR IN EV. S ( I . REPAIR) WITH SPEC. REP- JOB , DO 
CANCEL THE REPAIR LET OCCUPATION (A. CREW) -IDLE 
IF JOB IS IN ARMAMENT REMOVE JOB FROM ARMAMENT ALWAYS 
LET CREW-A. CREW DESTROY THE REPAIR LOOP 
LOOP 

FOR EACH JOB IN WP. QUEUE (MAINT. UNIT) WITH MOB . DAM (JOB) >0. . DO 
REMOVE JOB FROM WP. QUEUE (MA I NT . UNl T) 

FOR EACH PARTS. COME IN EV. S ( 1 . PARTS. COME) WITH SPEC. PART- JOB 
CANCEL THE PARTS. COME 
LET SPEC. JOB-JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA . F (A (7, 1 ) , 

A (7,2) , 9) * (T . ACT I ON (7, 3) -T . ACT ION (7, 1) ) ) -T. ACTION (7, 1) HOURS 
FILE JOB IN WT. QUEUE (MAINT. UNIT) 

LOOP 

FOR EACH JOB IN W1 . QUEUE (MA 1NT . UNl T) WITH MOB . DAM (JOB) >0. , DO 
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REMOVE THE JOB FROM Hi . QUEUE (MAI NT . UNIT) 

LET SPEC. JOB* JOB 

SCHEDULE fl MOVE. REAR GIVEN SPEC. JOB ANO LEV. MOVE IN (BETA. F (A (7. 1) . 

A (7,2) , 9) * (T. ACTION (7,3) -T. ACTION (7, 1 ) ) ) ♦T. ACTION (7. 1) HOURS 
FILE JOB IN HT. QUEUE (MAINT. UNIT) 

LOOP 

FOR EACH DIAGNOSIS IN EV.S (I.OIAGNOSIS) WITH LEV. QIAG-MAINT. UNIT. DO 
LET JOB-SPEC. OIAG(DIAGNOSIS) 

IF MOB. DAM (JOB) >0. CANCEL THE DIAGNOSIS OESTROT THE DIAGNOSIS 
AOO 1 TO INSPECTOR (MAINT. UNIT) 

LET SPEC. JOB* JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA. F (A (7, 1) , 
A (7,2) ,9) n (T. ACTION (7, 3) -T. ACT ION (7, 1) ) ) +T. ACTION (7,1) HOURS 
FILE JOB IN WT. QUEUE (MAINT. UNIT) 

ALHATS LOOP 
ALHATS 

IF NF. FOLKS (MAINT . UNI T) LE 1. 

FOR EACH JOB IN WS. QUEUE (MAINT. UNIT) WITH FP. OAM ( JOB) >0. . 00 
REMOVE JOB FROM WS. QUEUE (MAINT. UNI T) 

LET SPEC. JOB-JOB 

SCHEOULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA. F (A (7, 1) , 
A (7 # 21 .9) * (T. ACTION (7.3) -T. ACTION (7,1))) +T. ACTION (7, 1) HOURS 
IF JOB IS NOT IN WT. QUEUE 

FILE JOB IN HT. QUEUE (MAINT. UNIT) 

ALHATS 

IF JOB IS IN AUTOMOTIVE REMOVE JOB FROM AUTOMOTIVE ALWAYS 
FOR EACH REPAIR IN EV. S ( I .REPAIR) WITH SPEC. REP* JOB. 00 
CANCEL TME REPAIR LET OCCUPATION (A. CREW) « IDLE 
OESTROT THE REPAIR LOOP 
LOOP 

FOR EACH JOB IN WP. QUEUE (MAINT. UNIT) WITH FP. OAM (JOB) >0. . 00 
REMOVE JOB FROM WP. QUEUE (MAINT. UNIT) 

FOR EACH PARTS. COME IN EV. S (I .PARTS. COME) WITH SPEC. PART* JOB 
CANCEL THE PARTS. COME 
LET SPEC. JOB- JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB ANO LEV. MOVE IN (BETA . F (A (7. 1 ) , 
A (7,2) ,9) * (T. ACTION (7,3) -T. ACT I ON (7,1))) *T. ACTION (7,1) HOURS 
FILE JOB IN WT. QUEUE (MAINT. UNIT) 

LOOP 

FOR EACH JOB IN HI . QUEUE (MAINT. UNI T) WITH FP. OAM (JOB) >0. . 00 
REMOVE THE JOB FROM HI .QUEUE (MAINT. UNIT) 

LET SPEC. JOB* JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB ANO LEV. MOVE IN (BETA. F (A (7. 1) , 
A (7,2) ,9) * (T. ACTION (7,3) -T. ACTION (7. 1) ) ) +T. ACTION (7,1) HOURS 
FILE JOB IN WT. QUEUE (MAINT. UNIT) 

LOOP 

FOR EACH DIAGNOSIS IN EV.S (I .DIAGNOSIS) WITH LEV. 01 AG-MAI NT .UNIT, 00 
LET JOB-SPEC. 01 AG (DIAGNOSIS) 

IF FP. OAM (JOB) >0. CANCEL THE QIAGNGSIS OESTROT THE DIAGNOSIS 
AOO 1 TO INSPECTOR (MAINT. UNIT) 
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LET SPEC. JOB* JOB 

SCHEDULE A MOVE. REAR GIVEN SPEC. JOB AND LEV. MOVE IN (BETA. F (A (7, 1) » 
A (7.2) ,9) * (T. ACT ION (7.3) -T. ACTION (7. 1 ) )) *T. ACT ION (7. I) HOURS 
FILE JOB IN WT. QUEUE (MA1NT. UNIT) 

ALWAYS LOOP 
ALWATS 
RETURN 

END 
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ROUTINE TO COMP. TIMES 

DEFINE I AND J AS VARIABLES 
DEFINE B AND MU AS REAL VARIABLES 
PRINT 3 LINES AS FOLLONS 

INPUT TIME PARAMETERS 

FOR 1-1 TO 8, 00 

FOR J*1 TO 3 READ T. ACTION (I . J) 

LET 8* (T. ACTION (1 ,2) -T. ACTION (1 , 1) )/ (T. ACTION (1 , 3) - T. ACTION (1 , 1) ) 

LET MU* C (4 . 0*B) ♦1.0) /6.0 
LET A (1 , 1) * ( (MU* *2) * (1 . O-MU) *36.0) -MU- 1.0 
LET fl (I » 2) * ( (A (1 , 1) + 1 • 0) /MU) -A (1 ,1) -1.0 
PRINT 1 LINE WITH I , A (1 , 1) » A(I,2), T . ACT I ON (1 , 1 ) , T. ACT ION (1,2) » 

T • ACT 1 ON (1 , 3) THUS 

I*x All) »****. ** A (2) ** T.A(1 )**m.hm T . A (2) = **. kk T.AI3)***.** 

LOOP 

RETURN 

END 
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ROUTINE INI T . PRINT 

PRINT 13 LINES WITH P.TANK, P.MQB, N. BNS, P.FIX.FWO, PR. HAVE . PARTS. F WO, 

P. CO. FIX, PR, REAR. HAVE. PARTS AS FOLLOWS 

INPUT PARAMETERS 

THE PROPORTION OF JOBS THAT ARE TANKS IS .*«** 

THE REST ARE APC’S 

THE PROPORTION OF SYSTEM FAILURES THAT ARE AUTOMOTIVE IS .«*«« 

THE REST ARE ARMAMENT JOBS 
THERE ARE * SUPPGRTEO BATTALIONS IN THE BRIGADE 
THE PERCENTAGE OF OAMAGE THAT CAN BE FlXEO FORWARO IS . nn«* 

THE PROBABILITY THAT THE FORWARO OET. WILL HAVE THE PARTS IS .*««« 

THE PERCENTAGE OF OAMAGE THAT CAN BE FlXEO AT THE COMPANY IS . ***« 

THE PROBABILITY THAT THE COMPANY HAS THE PARTS IS .***« 

PRINT 26 LINES WITH EX. RAT, BZERG, RZERO, BP, R.2ECH. SPACE. ECH, 

TGT.PRI , PR. INC. 10, LS, REC.NUM, SELF. LIKE, UNREC, TH, MCPO, CCSL, CCSU, 
MTTF, LEAD. TIME, SETUP. TIME, CON. SPEED, B.OIST, PK.PERS THUS 

BATTLE ANO RECOVERY INPUT PARAMETERS 

EXCHANGE RATIO AT BEGINNING OF BATTLE 
BLUE FORCE LEVEL AT START OF BATTLE 
REO FORCE LEVEL AT START OF BATTLE ***. 

REO BREAK POINT IS «. MM SURVIVING 

REO SECOND ECHELON ADVANCE RATE **.* KM/HR 

ECHELON SPACING «*. KM 

RECOVERY VEHICLE TARGET PRIORITY « 

PROBABILITY OF INCORRECT IDENTIFICATION OF RECOVERY VEHICLE .** 
PROBABILITY OF LINE OF SIGHT .** 

NUMBER OF RECOVERY VEHICLES AT START 
PROPORTION OF SELF ANO LIKE RECOVERY .«* 

PROPORTION OF UNRECOVERABLE VEHICLES .«* 

EXPECTEO HOOKUP TIME «**.« HOURS 

DISTANCE FROM BATTLE SITE TO MCP AT START OF BATTLE ** KM 

CROSS COUNTRY SPEEO L0ADEO **.* KM/HR 

CROSS COUNTRY SPEEO UNLOAOEO **.* KM/HR 

MEAN TIME BETWEEN SYSTEM FAILURES ***.« OPERATING HOURS 

WARNING TIME BEFORE START OF BATTLE *** HOURS 

TIME FOR SETUP AFTER MOVE MINUTES 

CONVOY SPEEO 0UR1NG MOVE KM/HR 

BREAKPOINT OISTANCE AT WHICH OET. MOVES ** KM 

PROBABILITY OF PERSONNEL CASUALTY IN ATTACK *.** 

RETURN 

ENO 
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ROUTINE GRMMR.F (MERN, K, STREAM) 

DEFINE MERN, K, KK, I,Z,A,B»D.E,X,Y RND W RS REAL VRRIRBLES 
DEFINE STRERM RS RN INTEGER VRRIRBLE 
IF MERN LE D., LET ERR.F-145 ELSE 
IF K LE D.D LET ERR.F-146 ELSE 
LET Z-0. 

REGRRDLESS RLWRYS 
LET KK-TRUNC.F (K) 

LET D*K-KK 

IF KK-D. GO TO BETR 

ELSE LET E-1.0 

FOR 1*1 TO KK LET E=E*RANDQM.F (STRERM) 

LET Z — LOG.E.F(E) 

IF D*0. RETURN WITH Z* (MERN/K) ELSE 
’BETR* 

LET R* 1 . D/D LET B* 1 . D/ (1 . 0-D) 

’NEXT* 

LET X*RRNDGM.F (STRERM) **R 
LET Y-RRNDGM.F (STRERM) **B*X 
IF T LE 1.0 GO OUT 
ELSE GO TO NEXT 
’OUT’ 

LET M*X/Y 

LET Y— LOG. E.FtRRNDOM.F (STRERM)) 

RETURN WITH (Z + W*Y) * (MEAN/K) 

END 
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